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A evolução tecnológica, principalmente na área da Informática, 
está alterando profundamente a rotina de trabalho de quase todos 
os tipos de profissionais, notadamente os da área administrativa. 


É compreensível, portanto, que grande número de pessoas se 
envolva diretamente com computadores ou até mesmo adquira 
um, sem ter informações básicas mínimas. 


Por outro lado, minha experiência como professor mostrou-me 
currículos escolares muito pobres em Informática. Alie-se a isto a 
existência de material didático pouco objetivo, incompleto e 
insuficiente para o leigo que começa a trilhar os difíceis caminhos 
do aprendizado. 


Estas constatações levaram-me a elaborar este trabalho, que tem 
duas grandes pretensões: auxiliar o profissional e proporcionar as 
bases para o uso do micro. 


Todo o trabalho está voltado para os micros de lógica Sinclair que, 
embora considerados como “o primo pobre”, alinham diversas 
vantagens e uma enorme virtude: a de permitir um 
relacionamento muito íntimo entre o micro e usuário, muito 
diverso do oferecido por equipamentos de maior porte. 


Pretendo ocupar nossos micros não só com jogos mas dar-lhes 
também utilidade profissional. O pessoal da área de 
administração poderá verificar então como seus instrumentos, 
manipulados tradicionalmente sob outra roupagem, podem ser 
confiados ao micro. 








PREÇO DE VENDA, 13 
Permite tanto o cálculo do preço de venda de um produto como 
também a alteração de qualquer dos dados informados sem 
destruir os outros, gerando automaticamente O novo preço. 
Possibilita simulações muito úteis. 

Memória necessária: 16 KB. 


CÁLCULO DE FÓRMULAS, 17 

Permite a guarda e manipulação de até 18 matérias-primas e até 
18 fórmulas com até 10 componentes cada, utilizáveis para O 
cálculo automático do preço de custo de qualquer produto cuja 
fórmula tenha sido armazenada. Complementa o programa | 
anterior. 

Memória necessária: 16 KB. 


PONTO DE EQUILÍBRIO, 30 

Programa escrito para permitir a manipulação das informações 
para o cálculo da situação frente a estes dados; permite calcular a 
quantidade para O equilíbrio e traça O gráfico do ponto de 
equilíbrio. Possibilita simulações sem destruir Os dados 
armazenados. 

Memória necessária: 16 KB. 


LOTE ECONÔMICO, 35 
Permite o cálculo do lote econômico de compra a partir dos 
dados relativos a uma matéria-prima. Memória necessária: 1 KB. 


QUILOMETRAGEM, 38 
Bastante flexível, permite o cálculo do custo do quilômetro 
rodado para qualquer automóvel. Memória necessária: 16 KB. 


PESQUISA, 43 

Utilizável para a totalização dos dados relativos a uma pesquisa 
de opinião com até 20 perguntas de até cinco opções cada. 
Prevê a existência de uma não-resposta para cada pergunta (não 
respondeu). Produz a tabulação dos resultados. 

Memória necessária: 16 KB. 





GRÁFICO 1, 51 
Apresenta um gráfico de colunas para uma série de até 15 
eventos. Memória necessária: 1 KB, 


GRÁFICO II, 53 
Produz um gráfico de colunas para uma série de até 30 dados. 
Memória necessária: 1 KB. 


ESTATÍSTICA, 55 

Permite a implantação de um conjunto de até cinco séries 
estatísticas com até 12 elementos, podendo estes dados ser 
alterados, atualizados (inclusão de um novo dado, abandonando- 
se o mais antigo) e produz um gráfico de colunas com os dados 
de qualquer uma das séries. 

Memória necessária: 16 KB. 


ANÁLISE EMPRESARIAL, 62 

Programa que analisa seis índices fundamentais de um balanço. 
Bastante prático sem ser demasiado simplificado. 

Memória necessária: 16 KB. 


ANÁLISE DE BALANÇO. 66 
Texto auxiliar para entender os três programas na seguência. 


ANÁLISE FINANCEIRA, 70 

Programa que permite o cálculo de cinco índices financeiros 
relativos ao balanço de uma empresa, emitindo pareceres 
conforme os índices apurados. 

Memória necessária: 16 KB. 


ANÁLISE PATRIMONIAL, 82 

Produz cinco índices relativos à situação patrimonial de uma 
empresa, incluindo pareceres técnicos relativos à situação 
encontrada. 

Memória necessária: 16 KB. 


ANÁLISE ECONÔMICA, 93 

Programa que calcula três índices econômicos com relação aos 
dois últimos balanços da empresa, determinando a evolução dos 
mesmos. 

"Memória necessária: 16 KB. 








FIN 1, 101 
Calcula o montante a partir do principal. 
Memória necessária: 1 KB. 


FIN II, 103 
Calcula o principal a partir do montante. 
Memória necesária: 1 KB. 


FIN li, 105 
Calcula a prestação a partir do montante. 
Memória necessária: 1 KB. 


FIN IV, 107 
Calcula a prestação a partir do principal. 
Memória necessária: 1 KB. 


FIN V, 109 
Calcula o montante a partir da prestação. 
Memória necessária: 1 KB. 


FIN VI, 1 
Calcula o principal a partir da prestação. 
Memória necessária: 1 KB. 


FIN Vil, 113 

Calcula todos os valores calculáveis a partir dos programas FIN 1, 
FIN 1, FIN HE FIN IV e FIN VI. 

Memória necessária: 16 KB. 


VALOR PRESENTE, 117 
Calcula o valor presente de um fluxo de caixa de até 12 períodos. 
Memória necessária: 1 KB. 


PRESTAÇÃO POR TENTATIVAS, 119 

Programa para calcular a taxa de juros de uma compra em 
prestações utilizando a fórmula do principal, para taxa estimada, 
até encontrar a taxa correta. É o método mais exato. 

Memória necessária: 1 KB. 


POUPANÇA, 122 
Calcula o valor acumulado de uma caderneta de poupança 
informando-se a estimativa de taxas de correção monetária para O 











trimestre. Capitaliza também os juros. 
Memória necessária: 1 KB. 


MONTANTE ACUMULADO, 124 

Permite o cálculo de montante de uma aplicação após 
determinada quantidade de períodos, capitalizando os juros 
período a período. 

Memória necessária: 1 KB. 


ATRASO COMPOSTO, 126 

Calcula os juros de um capital por dias de atraso, capitalizado os 
juros dia a dia. 

Memória necessária: 1 KB. 


OPÇÃO ENTRE PAGAMENTOS, 128 

Permite o cálculo da opção mais interessante entre um 
pagamento à vista ou um pagamento daqui a “x” meses. 
Memória necessária: 1 KB. 


ENERGIA, 130 


Programa utilizável para efetuar a conversão de HP KW e WATTS, 
entre sí. Seis opções diferentes. 
Memória necessária: 16 KB. 


MEDIDAS DE POTÊNCIA, 134 

Permite o cálculo de KGM/S, WATTS e HP a partir de kg, metros e 
minutos. 

Memária necessária: 1 KB. 


LOGARITMO, 136 

Rotina de conversão de logaritmos neperianos em logaritmos em 
qualquer base dada. 

Memória necessária: 1 KB. 


ARRANJOS, 137 
Permite o cálculo da quantidade de arranjos possíveis a partir de 


“x” elementos, tomados “p” a “p”, 
Memória necessária: 1 KB. 


EXPERIÊNCIAS, 139 
Programa de estímulo à criatividade; produz uma quantidade 





infinita de padrões gráficos a partir de algumas alterações em um 
programa básico. 
Memória necessária: 1 KB. 


LOTO, 141 
Permite a produção de cartões da loto com cinco ou mais 


prognósticos gerados aleatoriamente. Pausa para o guerreiro. 
Memória necessária: 1 KB. 


Para melhor compreensão do funcionamento de qualquer 
programa, recomendamos uma atenta leitura das explicações que 
acompanham cada listagem bem como a análise da fórmula 
utilizada. 


Todas rodam tanto em SLOW como em FAST. 








Preco de Venda | 


Este programa calcula o preço de venda de um produto, através 
da seguinte fórmula: 


MPu + MODu + ClFu 


100 - (IMP + DA + DF + COM + LO) 
100 


= Preço de venda unitário 

= Custo da matéria-prima, por unidade 

= Mão-de-obra direta, por unidade 

= Custo indireto de fabricação, por unidade 

= Percentual de impostos diretos 
(ICM/PIS/FINSOCIAL) 

= Percentual de despesas administrativas a serem 
suportadas pelo produto. 

= Percentual de despesas financeiras a ser incluído 
no cálculo. 
Percentual de comissão e/ou despesas com 
vendas incidentes 

LO Percentual de lucro pretendido. 


PVu 


O programa exibe uma tela (vide anexo) e solicita a digitação de 
três itens de custo em cruzeiros — ou outra moeda — e cinco 
percentuais. 


Após terem sido informadas todas as variáveis, o “Preço de 
Venda” aparecerá na última linha da tela. 


Neste ponto, podem-se iniciar simulações acessando-se qualquer 
das variáveis informadas através da digitação do número que 
precede cada item de custo. Isto permitirá o recálculo, supondo- 
se a alteração de uma ou mais variáveis. 


Um exemplo: 

No cálculo que está no micro, foi considerada uma comissão de 
vendas de 5% e queremos saber qual será o preço de venda caso 
façamos uma venda direta para a qual estimamos 1% de despesas. 
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Basta digitar: 7 (sete) seguido de NEW LINE ou ENTER e 
1 (um) seguido de NEW LINE ou ENTER. 


Imediatamente, a tela exibirá um percentual de comissão de 1% e 
o preço de venda exibirá O produto do novo cálculo. 


Além dos oito itens de custo que podemos alterar, podemos 
utilizar ainda as opções 9-NOVO CÁLCULO que provocará O 
apagamento de todos os valores e habilitará nova segiiência de 
informações e 0- FIM que encerra à execução. 




















Para copiar o programa em fita podemos digitar: GOTO 955 


CÁLCULO DE PREÇO DE VENDA 


MATERIA PRIMA... rereereeereneecrernesereeteceererantenensenantos 
2-MAO DE OBRA DIRETA........ceessereremeerererereeeeereererentenementares 
3.C. IND. FABRICACAO.......ue seems eee 
IMPOSTOS... eee rerereererereeranasorceracassarasecaneacacensasenenaasenes 0/0 
5 DESP. ADMINISTRATIVA........s.cecseseeeeecereereererenentenene a 0/0 
G-DESP. FINANCEIRA........cerseeeseeneeerremencerenreneceeenseneaceto 0/0 
7-COMISSÃO .......cresrcereereeenerearereemeecereareaserreenrercnesenseraarentos 0/0 


ISV va bed Ta ada Una de dn dnThe nan dido a Una Sn d E RES na dr SE 





9-NOVO CALCULO 
0-FIM 


PREÇO DE VENDA........csceeeeseeeeseeeoeeamereneeenteeemeeentero 







5 REM — PREÇO DE VENDA 
10 REM — AUTOR: LOURIVAL KARSTEN 
15 PRINT “CALCULO DE PREÇO DE VENDA” 
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20 FOR B=1TOo8 
25 GOSUB B * 100 
30 NEXT B 
65 PRINT AT 13,0; “9-NOVO CALCULO” 
70 PRINT AT 14,0; “O-FIM" 
75 PRINT AT 16,0; “PRECO DE VENDA 
80 LET S=P+MA+4C 
82 LET T=I+A+F+O+L 
84 LET T=100-T 
86 LET S = S/(T/100) 
88 PRINT AT16,23;5S;"" 
- 90 INPUT Z 
92 IF Z = G THEN GOTO 950 
94 GOSUB Z*100 
96 GOTO 80 
100 PRINT AT 3,0; “1-MATERIA PRIMA 
105 INPUT P 
NO PRINT P;"” 
115 RETURN 
200 PRINT AT 4,0; "2-MAÃO DE OBRA DIRETA...”; 
205 INPUT M 
290 PRINT MC” 
215 RETURN 
300 PRINT AT 5,6; “3-C. FABRICACAO 
305 INPUT C 
310 PRINT CU” 
315 RETURN 
400 PRINT AT 7,0; “4-IMPOSTOS 
405 INPUT | 
40 PRINT 1;0/0" 
415 RETURN 
500 PRINT AT 8,0; "5-DESP. ADMINISTRATIVA..”; 
505 INPUT A 
510 PRINT  A;0/0" 
515 RETURN 
600 PRINT AT 9,0; “6-DESP. FINANCEIRA 
605 INPUT F 
610 PRINTF; 0/0" 
615 RETURN 





700 PRINT AT 10,0; “7-COMISSAÃO 
705 INPUT O 

710 PRINT 0:0/0". 

715 RETURN 

800 PRINT AT 11,0; "8-LUCRO................ ; 
805 INPUT L 

810 PRINT LL; “0/0” 

815 RETURN . 

900 CLS 

905 GOTO 15 

950 STOP 

955 SAVE “PREÇO DE VENDA" 
960 GOTO 15 





Cálculo de Fórmulas 


Praticamente todos os produtos comportam o cálculo do seu 
custo através de uma planilha de custos — usualmente chamada 
de fórmula —, onde especificam-se o tipo e a quantidade de 
componentes e unidades de trabalho necessárias à sua produção. 


Caso se tenha uma grande quantidade de produtos a calcular e 
uma grande quantidade de componentes, o problema exige 
soluções bastante sofisticadas; caso a quantidade de 
componentes seja pequena, assim como a quantidade de 
fórmulas, pode-se usar o programa a seguir descrito que realiza 
estas operações facilmente, permitindo cadastrar 18 componentes 
e 18 fórmulas com até 10 componentes cada. 


O programa foi escrito para um NEZ8000 com expansão de 16 kb 
e, portanto, pode ser utilizado sem alteração num TK ou Sinclair. 


A primeira tela obtida pressionando-se a tecla ENTER ou NEW 
LINE é o “menu”, no qual pode-se escolher a rotina de que se 
necessita. Vide tela 1 anexa. Para acessar qualquer das rotinas 
oferecidas do menu, basta digitar o número que precede a 
mesma. 


À opção inicial normalmente será a rotina 1-CADASTRAR M. 
PRIMAS ou 2-CADASTRAR FORMULAS. Estas rotinas, 
principalmente a primeira, serão normalmente utilizadas apenas 
na implantação do cadastro. 


À opção 1-CADASTRAR M. PRIMAS faz surgir a tela 2 (vide 
anexo), que exige a digitação de diversos campos, a saber: 
CÓDIGO - É importante para o referenciamento do componente 
nas fórmulas. É o código de indexação. 

DESCRIÇÃO - Facilita a manipulação das informações pois 
permite uma rápida identificação do componente. 

PREÇO - Poderá ser utilizado qualquer preço — seja médio, de 
estoque, de compra, futuro etc. — mas, normalmente, utiliza-se o | 
preço atual de mercado do componente. 
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UNIDADE - Para referenciar o preço, recomenda-se cadastrar 
criteriosamente a unidade de medida do componente. 


A tela 2 exige a digitação de todos os dezoito componentes 
possíveis. Caso não exista esta quantidade de componentes, basta 
completar o arquivo com zeros e espaços. Quando for necessário 
incluir mais componentes ou alterar algum deles, utiliza-se a 
rotina 3-ALTERAR MAT. PRIMAS. 


A rotina 2-CADASTRAR FORMULAS permite a digitação do 
código e quantidade de cada componente da fórmula. Utiliza-se a 
tela 3 que pode ser vista no anexo. 


Esta rotina permite a digitação de qualquer quantidade de 
fórmulas até o limite de dezoito, assim como referenciar cada 
uma com um número qualquer de 1 a 18, em qualquer ordem. 
Um inconveniente a ser considerado é a possibilidade de gravar- 
se uma fórmula com um número já utilizado anteriormente, 
situação em que a primeira gravação será destruída e substituída 
integralmente pela segunda. Ocorrerão problemas se a 
quantidade de componentes da segunda fórmula for menor que a 
da primeira. Recomenda-se utilizar a rotina 7-LISTAR FORMULAS 
para verificá-la. 


As variáveis a serem digitadas na tela 3 são: 


NUMERO - da fórmula que servirá para referenciá-la no arquivo. 
A digitação de 6 (zero) provoca o retorno à tela 1. 

NOME - do produto que serve para uma rápida identificação do 
mesmo, 

CODIGO - da matéria-prima ou componente pelo qual o mesmo 
foi cadastrado na Tabela de Componentes (tela 2). A digitação de 
6 (zero) leva ao fechamento da fórmula. 

QUANTIDADE - que deve ser expressa em múltiplo ou fração — 
conforme o caso — da unidade de medida pela qual o 
componente foi cadastrado na Tabela de Componentes da tela 2. 


O fechamento da fórmula que também ocorrerá após a digitação 
do décimo código leva à opção entre S e N para voltar ao menu. 


A opção 3-ALTERAR MAT. PRIMAS provocará O aparecimento da 


tela 4 (vide anexo) que permite, digitando-se o código, chamar 
qualquer componente cadastrado na Tabela de Componentes e 
oferece quatro opções a saber: 


O - Habilita a escolha de um novo componente. 

1 - Permite alterar a unidade de medida do componente. 

2 - Permite alterar a descrição do componente. 

3 - Permite alterar o preço cadastrado. 

As opções de 1 a 3 não são exclusivas, podendo-se alterar todos 
Os campos, caso necessário. Apenas o 6 permite sair da rotina. 

A opção 4-ALTERAR FORMULAS possibilita que se trabalhe com a 
tela 5 (vide anexo), que permite chamar qualquer fórmula através 
do número de cadastro da mesma. A digitação de O (zero) 
provoca o retorno à tela 1. 


Após o aparecimento da chamada “LINHA?” é possível acessar o 
componente da fórmula a ser alterado. Para tanto, deve-se contar 
os componentes listados na tela, iniciando-se com 1 (um) para o 

primeiro. À digitação de 6 (zero) permite selecionar nova fórmula. 


Acessada a linha, escolhe-se entre três opções, a saber: 

O - Para selecionar outra linha. 

1 - Para alterar o código do componente. 

2 - Permite alterar a quantidade do componente. 

À quinta opção — 5-CALCULAR — provoca apenas o 
aparecimento de uma mensagem na tela, informando que a tarefa 
de cálculo do custo das diversas fórmulas armazenadas foi 
concluído. 


Após uma breve parada o programa volta automaticamente à tela 1. 


A sexta opção — 6-LISTAR MAT. PRIMAS — usa a tela 6 (vide 
anexo) e listará todos os componentes (matérias-primas) 
cadastrados que estão arquivados no programa. 

Após realizada a consulta a esta tabela, retorna-se à tela 1, 
pressionando a tecla ENTER ou NEW LINE. 

A opção 7-LISTAR FORMULAS utiliza a tela 7 (anexa) e permite a 
listagem de qualquer fórmula armazenada, bastando que se digite 





20. 

















o seu número de cadastramento. A digitação de 0 (zero) 
provocará o retorno à tela 1. 
Após a consulta à fórmula, pode-se optar entre S (sim) para listar 
outra fórmula e N (não) para retornar à tela 1. 


A penúltima opção — 8-LISTAR CUSTO FORMULAS — produzirá 
a tela 8 (anexa) onde estarão listadas todas as fórmulas 
cadastradas com o seu respectivo custo, calculado de acordo com 
os componentes atribuídos a cada fórmula. 


O uso da tecla ENTER ou NEW LINE provocará o retorno à tela 1. 


A última opção — 9-FIM — apenas produzirá uma mensagem de 
advertência e provocará o encerramento da operação do 
programa. 


Uma observação importantíssima é a de que, após a primeira 
utilização do programa e consequente gravação de dados que 
devam permanecer permanentemente, sempre deve-se utilizar O 
comando GOTO 21 no lugar do comando RUN. O uso do 
comando RUN será desastroso, pois esvaziará o conteúdo dos 
arquivos. 


Igualmente, sempre que houver atualização de preços, alterações 
de fórmulas ou componentes ou apenas cálculo atualizado dos 
custos das fórmulas, deverá ser feita uma nova cópia do programa 
para preservar as informações. O esquecimento desta advertência 
provocará a perda de todo o trabalho realizado. 


OPCOES: 


1-CADASTRAR M. PRIMAS 
2-CADASTRAR FORMULAS 
3-ALTERAR MAT. PRIMAS 
4-ALTERAR FORMULAS 
5-CALCULAR 

6-LISTAR MAT. PRIMAS 
7-LISTAR FORMULAS 
8-LISTAR CUSTO FORMULAS 
S-FIM 





TABELA DE COMPONENTES 
COD. UNID. DESCRICAO 


KG  M. PRIMA 01 
l AGUA 

R GASOLINA 
L ALCOOL HID 
UN  SABAO 


“<<... EO Na 


DEZOITO tum 


o 


FORMULA DO PRODUTO 
PRODUTO: Prod. Principal N. 00 


COD. QUANTIDADE 
1 0.5 

19 0.1 

n 0.05 

5 0.0001 

7 0.3 

17 0.05 

15 5. 


OUTRA FORMULA (S/N)? 





TABELA DE COMPONENTES 
ALTERACAO 
COD. UNID. DESCRICAO 


CODIGO A ALTERAR? 
0 P/FIM 


10 KG  DECIMA MP 123.45678 
QUE DADO ALTERAR? (0/1/2/3) 
L ALTERACAO 222.222 


FORMULA DO PRODUTO 
PRODUTO: ALTERACAO N.b 


COD. QUANTIDADE 
E É 0.55 
1 0.111 

1. 


LINHA? 
DADO? (0/1/2) 





TABELA DE COMPONENTES 
COD. UNID. DESCRICAO 


KG  M. PRIMA 01 
L AGUA 


0. 0 » 0 4 Kk3) —a 


18 KG DEZOITO Mnam 


FORMULA DO PRODUTO 
PRODUTO: M. Prima 61 N.1 


COD. QUANTIDADE 
8.1 
0.85 
0.001 


NOVA FORMULA? (S/N) 
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24 


COD. DESCRICAO 
1 FORMULA 1 
2 2. FORMULA 
3 PRINCIPAL 
e 

e 

. 

“ 

“ 

. 

e 

18 ULTIMA 


< ENTER > P/SAIR 


5 REM CALCULO DE FORMULAS 
7 REM AUTOR: LOURIVAL KARSTEN 
8 REM CRIACAO DAS TABELAS 

10 DIM U$ (18,2) 

11 DIM cg (18,10) 

12 DIM P (18) 

13 DIM FS (18,15) 

14 DIM C (18) 

15 DIM R (180) 

16 DIM Q (180) 

18 GOTO 2 

20 INPUT 

21 CLS 


LISTA DOS CUSTOS DAS FORMULAS 





PRECO 


125.25265 
25.5 
525,550 


AMA 

















22 PRINT 
24 PRINT 
26 PRINT 
28 PRINT 
30 PRINT 
32 PRINT 
34 PRINT 
36 PRINT 
38 PRINT 
40 PRINT 
50 INPUT 
ba IF 

b3 CLS 
54 GOTO 
100 CLS 
105 GOSUB 
10 FOR 
112 PRINT 
114 INPUT 
116 PRINT 
118 INPUT 
120 PRINT 
122 INPUT 
124 PRINT 
126 NEXT 
128 GOTO 
140 PRINT 
142 PRINT 
144 PRINT 
146 PRINT 
148 PRINT 


150 RETURN 


200 CLS 
205 GOSUB 
210 INPUT 
212 IF 
214 PRINT 
216 INPUT 
218 PRINT 


AT 
AT 
AT 


1,0: “OPÇÕES: 

3,0: “1-CADASTRAR M. PRIMAS” 
5,0: '2-CADASTRAR FORMULAS” 
AT 7,0: “3-ALTERAR MAT. PRIMAS” 
AT 9,0; '4-ALTERAR FORMULAS” 

AT 11,0: “5-CALCULAR” 

AT 13,0; “'6-LISTAR MAT. PRIMAS” 

AT 15,0; “7-LISTAR FORMULAS” 

AT 17,0: “'8-LISTAR CUSTO FORMULAS" 
AT 19,0; “9-FIM” 

A 

A = 0ORA > 9 THEN GOTO 50 


A * 100 


140 
|=1 TO 18 

AT 3+1,1:] 

US(I) 

AT 3+1,5;US(I) 

Cs(I) 

AT 3+1,10;C311) 

P(I) 

AT 3+1,23;P(I) 

| 

21 

AT 0,5: “TABELA DE COMPONENTES” 
AT 2,0: “COD: 

AT 2,4: “UNID” 

AT 2,10; “DESCRICAO” 

AT 2,25; “PRECO” 


250 

| = O THEN GOTO 21 
AT 1,30; 

FStI) 

AT 1,10;FSI) 





26 





220 FOR 
222 INPUT 
224 IF 

226 PRINT 
228 INPUT 
230 PRINT 
232 NEXT 
234 GOTO 
250 PRINT 
252 PRINT 
254 PRINT 
256 PRINT 
258 PRINT 


260 RETURN 


265 PRINT 
270 INPUT 
275 IF 

280 GOTO 
300 CLS 
305 GOSUB 
310 PRINT 
312 PRINT 
314 PRINT 
316 INPUT 
318 IF 

320 LET 
322 GOSUB 
328 PRINT 
330 INPUT 
332 IF 

334 GOTO 
349 INPUT 
342 PRINT 
344 GOTO 
360 INPUT 
362 PRINT 
364 GOTO 
380 INPUT 
382 PRINT 





X = 1 TO 18 

R ((1-1) * 10 + X) 

R ((1-4) * 10 + X) = O THEN GOTO 265 
AT X+4,3; R (1141) * 10 + X) 

O ((1-1) * 10 + X) 

AT X+4,20; O (111) * 10 + X) 

X 

26h 

AT 0,7: “FORMULA DO PRODUTO” 
AT 1,1; “PRODUTO:” 

AT 1,27; “NS 

AT 22: "COD. 

AT 2,18; “QUANTIDADE” 


AT 20,0; “OUTRA FORMULA (S/N)? 
2% 

Z5 = “S" THEN GOTO 200 

21 


140 
AT 1,10; “ALTERACAO” 

AT 5,10; “CODIGO A ALTERAR"?” 

AT 6,10; “O P/FIM” 

| 

| = O THEN GOTO 21 

F=8 

386 

AT 12,2: “QUE DADO ALTERAR? (0/1/2/3)" 
F 

F = 0 THEN GOTO 300 

(F* 20) + 320 

USC) 

AT 15,5; USC) 

330 

Est) 

AT 15,10; CS(1) 

330 

P(l) 

AT 15,23;P() 


384 GOTO 
386 PRINT. 
388 PRINT 
390 PRINT 
392 PRINT 


394 RETURN 


412 INPUT 
414 IF 

416 PRINT 
418 PRINT 
420 FOR 
422 PRINT 
424 PRINT 
426 NEXT 


427 RETURN 


400 CLS 
405 GOSUB 
408 PRINT 
410 GOSUB 
411 GOTO 
428 PRINT 
430 INPUT 
432 IF 

434 PRINT 
436 INPUT 
438 IF 

440 GOTO 
450 INPUT 
452 PRINT 
454 GOTO 
470 INPUT 
472 PRINT 
474 GOTO 
500 CLS 
505 REM 
510 FOR 
b12 LET 
514 FOR 
bt6 LET 


330 

AT2+F1;] 

AT 2+F 5; US(I) 
AT 2+F10;C8() 
AT 2+F 23; P(]) 


| = O THEN GOTO 21 

AT 1,10; FS(I) 

AT 1,30; | 

F=1TO10 

AT F+D,7; R((I-D*IO + F) 
AT F+5,20; O ((11) * 10 + F) 
Fr 


250 
AT 1,10; “ALTERACAO” 

412 

428 

AT 4,0; “LINHA 2” 

F 

F = O THEN GOTO ago 

AT 5,0; “DADO ? (0/1/27" 

x 

X = O THEN GOTO 430 

(X * 20) + 430 

R((11)*10 + E) 

AT F+5,7; R ((11) *10 + F) 
A34 

Q ((1-1)* 10 + F) 

AT F+5,20; Q ((11) * 10 + F) 
434 


ROTINA DE CALCULO 
E=1 TO 18 


Z=0 
X=1TO10 
F=R(-1*10+X) 








517 IF 
518 LET 
520 LET 
522 NEXT 
524 LET 
526 NEXT 
b28 PRINT 
530 PAUSE 
532 GOTO 
600 CLS 
605 GOSUB 
610 FOR 
612 LET 
614 GOSUB 
616 NEXT 
618 PRINT 
620 INPUT 
622 GOTO 
700 CLS 
705 GOSUB 
710 PRINT 
712 GOSUB 
714 PRINT 
715 PRINT 
716 INPUT 
718 IF 

720 CLS 
722 GOTO 
800 CLS 
805 PRINT 
810 PRINT 
812 PRINT 
814 PRINT 
816 FOR 
818 PRINT 
820 PRINT 
822 PRINT 
824 NEXT 








F = 0 THEN GOTO 522 

Y = P(F) 
Z=Z+(Y*0((1-1)*10 + X)) 
X 

C(l) = Z 

"JA TERMINEI OS CALCULOS” 
1000 

21 


140 

| = 1 TO 18 

F=1 

386 

| 

“PARA SAIR < NEW LINE > “ 
2% 

21 


250 
AT 1,11; “LISTAGEM” 
412 


“NOVA FORMULA ? (S/N) 
Z5 
Z5 <>"S” THEN GOTO 21 


700 


"LISTA DOS CUSTOS DAS FORMULAS” 


AT 2,0; “COD.” 

AT 2,6; “DESCRICAO” 
AT 2,23; “PRECO” 
|=1TO 18 

ATI+3,1;] 

AT I+3,6; PS(H) 

AT 1+3,23; C(l) 


826 PRINT 
828 INPUT 
830 GOTO 
900 PRINT 
905 PRINT 
910 STOP 
915 SAVE 
'920 GOTO 


AT 22,0; “< NEW LINE > P/SAIR” 
2% 
21 
“NÃO ESQUEÇA DE FAZER COPIA" 
“ATUALIZAR APOS ALTERAÇÕES” 


“FORMULAS” 
21 





Ponto de Equilibrio 


ne 
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A análise do ponto de equilíbrio é um método bastante útil de 
visualização de um produto, de um setor ou mesmo de toda uma 
empresa com relação aos seus custos fixos, custos variáveis, 
preços e consequente nível de lucratividade. 


Não entraremos em maiores detalhes com relação ao 
embasamento teórico do cálculo do ponto de equilíbrio mas, 
sempre que possível, alguns detalhes foram incorporados ao 
próprio programa, escrito em BASIC Sinclair e, portanto, 
compatível com TK, NE e CP. 


Ao iniciarmos a operação do programa, o mesmo montará a tela 1 
(vide anexo), solicitando pela ordem: 


Quantidade, 

Preço unitário, 

Custo variável unitário, 
Custo fixo total. 


Com estas informações, será calculado o lucro ou prejuízo ou, 
ainda, será informado que foi atingido o ponto de equilíbrio, 
conformé o caso. | 


Além desta mensagem, será montado o resto da tela 1 que 
consiste em mais 4 (quatro) opções de trabalho. 


Neste ponto, pode-se optar por alterar qualquer dos dados 
informados, digitando o número que precede cada informação e 
introduzindo o novo valor. Isto implicará um recálculo do ponto 
de equilíbrio. Esta opção permite que se façam simulações, 


alterando qualquer das variáveis e observando as consequências 
em relação à lucratividade. 


Podemos ainda optar por outras rotinas, a saber: 


5-CALCULAR O PONTO que implicará O cálculo da quantidade 
necessária para atingir o ponto de equilíbrio — ou o mais próximo 
possível —, utilizando o preço € Os custos informados. 


Caso a quantidade seja superior a 50%) (cinco mil) unidades, o 
programa não calculará o mesmo. Neste caso, basta voltar a 
informar o preço e o custo variável unitário em uma outra base, 
por exemplo: centenas. 


6-NOVO CALCULO é uma rotina que permite reiniciar o 
programa, informando-se um novo conjunto dé dados sem 
precisar acessar cada dado individualmente. 


7-FIM serve unicamente para encerrar a execução do programa. 


8-GRÁFICO DO PONTO destrói a tela um e monta um gráfico do 
ponto de equilíbrio, utilizando para tanto a quantidade e os 
custos informados que por último estavam na tela. Embora devido 
a problemas inerentes ao próprio micro a visualização não seja 
perfeita, ela permite uma aproximação bastante razoável da 
trajetória normal das diversas linhas. 


Para fazer cópia do programa em fita, podem ser utilizadas as 


duas últimas linhas do programa. 


BREAK-EVEN-POINT 


1-QUANTIDADE 

2-PRECO UNITARIO 

3-CUSTO VARIAVEL UNITAR. 

4-CUSTO FIXO 

XxX mensagem 


5-CALCULAR O PONTO 
6-NOVO CALCULO 
7-FIM 

8-GRAFICO DO PONTO 
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2 CLS 


10 REM 
12 LET X5 = 
20 FOR 








30 NEXT | 













75 INPUT A 






85 GOTO 
115 GOSUB 120 
116 GOTO 3 








122 INPUT OQ. 
124 PRINT Q/ 
126 RETURN 

135 GOSUB 149 
136 GOTO 35 





















142 INPUT P 
144 PRINT  P;” 
146 RETURN 

155 GOSUB 160 
156 GOTO 35 




















162 INPUT V 
164 PRINT VV,” 








120 PRINT AT 2,0; 


140 PRINT AT 4,0; 


issgem 0] 


5 PRINT “BREAK-EVEN-POINT” 
AUTOR: LOURIVAL KARSTEN 
“EQUILIBRIO EM” 
|=1TO4 

25 GOSUB (1* 20) + 100 


35 LET L=(P*O)-(V*Q)-F 


55 PRINT AT 13,0; “5-CALCULAR O PONTO” 
60 PRINT AT 15,0; "6-NOVO CALCUL é 

65 PRINT AT 17,0; 7-FIM” 

70 PRINT AT 19,0; “8-GRAFICO DO PONTO” 
80 IF A < YO0RA > 8THEN GOTO 75 
(A * 20) + 95 


*1-QUANTIDADE 


tr 


“o PRECO UNITARIO.......“'; 


,r 


160 PRINT AT 6,0; “3- custo VARIAVEL UNITAR.” 


rr 


40 IF L < OQ THEN PRINT AT 10,0; “PREJUIZO DE CR$” | Bd 
45 IF L = QTHEN PRINT AT 19,0;X8;0; “UNIDS." 
50 IF L > O THEN PRINT AT 10,0; “LUCRO DE CR$ CL 





Fr 


sr 





166 RETURN 
175 GOSUB 


176 GOTO 
180 PRINT 
182 INPUT 
184 PRINT 


186 RETURN 


200 FOR 
202 LET 
204 IF 

206 NEXT 
208 PRINT 
210 GOTO 
212 PRINT 
213 PRINT 
214 GOTO 
220 GOTO 
240 STOP 
255 CLS 
260 FOR 
262 PLOT 
264 NEXT 
266 FOR 
268 PLOT 
270 NEXT 
272 FOR 
274 PLOT 
276 NEXT 
278 FOR 
280 PRINT 
282 NEXT 
284 FOR 
286 PRINT 
288 NEXT 
290 LET 
292 LET 
294 FOR 
296 PLOT 
298 NEXT 


180 

35 

AT 8,0; “4-CUSTO FIXO 
F 

F: 7) E) 


O = 1 TO 5000 
L=(P*O)-(V*0O)-F 
L > = 6 THEN GOTO 212 


Q 


AT 10,0; X3; “MAIS DE 5000 UNID.” 
75 

AT 10,0;X8;0; “UNIDS:” 

AT 2,0; "1-QUANTIDADE 

75 

2 


A di 
cia | esa 
No Mm 
S 3 
S 8 
[6] 
=] 
m 
TV 
Es 


E ia 
da 
o 
8 


|=5BTO3OSTEP5 
AT 214,14;] 

| 

| = 2 TO 20 STEP 2 
AT |, 0; 10 - (1/2) 


Of = INT(P*QO)/40 
O2 = INT Q/40 
|=2TO6 

|, INT (F/Q1) 

| 
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300 LET 
302 FOR 
304 PLOT 
306 LET 
308 NEXT 
309 LET 
310 FOR 
312 LET 
314 PLOT 
316 LET 
318 NEXT 
320 STOP 
325 SAVE 
330 RUN 


Y=1 

| = 2TOB8STEP 1.5 
1, Y 

Y=Y+1 

| 

Y=1 


| = 2 TO B8STEP 1.5 

CT = INT(F +(02*Y *vh/01 
|, CT 

Y=Y+1 

| 


“BREAK” 






Lote Econômico 


Em momentos de inflação alta e principalmente com custos 
financeiros muito elevados, é essencial uma boa administração de 
materiais. Uma das medidas mais eficientes é o recurso ao “Lote 
econômico de compras”. 














O programa a seguir detalhado, escrito para linha Sinclair, poderá 
ser muito útil na tarefa de efetuar os cálculos para a determinação 
do mesmo. | 







A fórmula de cálculo, tradicional, é a seguinte: 
[2DP 
Q E JC 


OQ = Quantidade mais econômica de aquisição. 
D = Demanda anual do produto, em unidades de medida. Ex.: kg. 
P = Custo de fazer um pedido. 

] = Custo de manutenção do estoque, expresso em percentual. 
C = Custo unitário do produto na unidade de medida em que foi 
expresso o consumo anual. . 





onde: 


















Durante a operação do programa, cada um desses dados é 
solicitado, devendo ser digitado. Esta rotina só pode ser 
interrompida depois que todos os dados forem digitados. 
Após a digitação do último dado, o programa faz uma breve 
pausa e, logo a seguir, realiza a tarefa de cálculo, exibindo o 
resultado tão logo complete esta tarefa. 









Uma vez estando o resultado na tela, é permitida a opção entre: 
S - realizar novo cálculo e N - interromper o mesmo. 







Para realizar cópias do programa em fita, podemos utilizar as duas 
últimas linhas do mesmo que contém os comandos necessários. 






35 


CALCULO DE LOTE ECONOMICO DE COMPRA DE UM PRODUTO 
DEMANDA ANUAL DE KG ..00000000 
CUSTO DO PEDIDO CR$..00000000 


CUSTO ESTOCAGEM. /...00000000 
CUSTO UNITÁRIO CR$ ...00000000 
LOTE ECONOMICO DE 00000000 KG 
OUTRO CALCULO ? (S/N) 





na 


5 REM LOTE ECONOMICO 

10 REM AUTOR: LOURIVAL KARSTEN 

11 CLS 

12 PRINT “CALCULO DE LOTE ECONOMICO DE” 
13 PRINT “COMPRA DE UM PRODUTO” 

16 PRINT AT 7,6; “DEMANDA ANUAL DE KG..”; 
18 INPUT D 
20 PRINT D;” E 
22 PRINT AT 8,0; “CUSTO DO PEDIDO CR$..”; 
24 INPUT P 
26 PRINT  P;” g 
28 PRINT AT 11,0; “CUSTO ESTOCAGEM./...”; 
30 INPUT J 
32 PRINT J;” fá 
34 PRINT AT 13,0; “CUSTO UNITÁRIO CR$...”; 
36 INPUT C 

38 PRINT C;” o 


36 À 


40 LET 
42 PRINT 
48 PRINT 
50 INPUT 
52 IF 

54 STOP 
56 SAVE 
58 GOTO 


R = SOR ((2*D*P)/(J*C)) 

AT 17,0; “LOTE ECONOMICO DE “;R;” KG 
AT 19,0; “OUTRO CALCULO? (S/N) 

X8 

X8 = “S” THEN GOTO 11 


“LOTE” 
1 









| 
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Quilometragem 






A aquisição de um veículo ou mesmo a sua manutenção envolve 
uma série de fatores, muitos deles subjetivos, mas também custos. 
O custo do quilômetro rodado por um veículo pode ser calculado 
pelo programa que ora apresentamos. Embora o mesmo tenha 
sido montado da forma mais simplificada possível, oferece uma 
grande aproximação do custo real e, portanto, é perfeitamente 
adequado para cálculos pessoais ou mesmo semiprofissionais. Em 
se tratando de uma frota, seria mais produtivo montar um 
programa um pouco diferente que possa armazenar uma série de 
constantes e mesmo dados fundamentais a respeito dos veículos. 


Para uma melhor compreensão do programa, recomenda-se o 
acompanhamento, através da tela anexa, dos diversos dados a 
serem informados, inteirando-se a respeito do que compreende 
cada um: 


CUSTO DO VEICULO - Considerando-se o custo efetiva do 
veículo através da diferença entre o Valor de Aquisição (ou atual) 
do veículo e o Preço de Venda, ou seja, o valor que se ganharia 
pelo veículo atual se o mesmo tivesse “X” meses (ou anos) de 
uso. Este valor futuro a preço de hoje pode ser obtido através de 
tabelas como as de Quatro Rodas ou de revendedores. 
importante: Não se considera a inflação nesta avaliação, pois O 
que interessa para o cálculo da depreciação real é a diferença 
entre os valores a preços de hoje. 

Portanto, neste primeiro grupo de informações devem-se digitar O 
valor de aquisição, o preço de venda e o número de meses que se 
pretende ficar com o mesmo (diferença de tempo entre os dois 
preços). 

KMS POR MES? - Estimativa da quilometragem média que se fará 
mensalmente com o veículo. | 


SEGUROS CR$/ANO - Neste item deverão ser incluídos não só O 








prêmio de seguro obrigatório como ainda os prêmios do seguro 
contra terceiros ou seguro total, quando isto ocorrer. 


REFORMAS-CR$/ANO - Alguns automóveis, notadamente quando 
for prevista uma grande quilometragem, necessitarão de reformas. 
Neste caso não se deve deixar de incluir um valor previsto 
anualmente para tal fim. 


MANUTENCAO-CR$/ANO - Neste valor devem-se incluir não só 
pequenos consertos como itens eventuais como pára-brisa 
quebrado, troca de velas etc.... 


TRU-CR$/ANO - Valor a ser pago anualmente. 


OLEO-CR$/ANO - Para efeito de simplificação, inclui-se o valor 
anual deste item, pois o mesmo, além de variar em quantidades 
para veículos diferentes, inclui trocas a quilometragens diversas. 
A troca de filtro de ar também deve ser considerada quando 
houver muito trânsito em estradas de terra. 


GRAXA-LAVACAO-CR$/MES - Além de graxa (quando for o caso), 
este item inclui a lavação e outros serviços eventuais. Adicionar ao 
valor os aditivos utilizados e o gasto com gasolina por veículo a 
álcool. 

PNEUS-CR$ CADA - Valor de cada um dos quatro pneus do 
veículo. 

VIDA PNEUS-KM - Vida estimada para cada pneu, considerando- 
se desgaste normal, piso das estradas, condições de carga etc... 
KM POR LITRO - Quilometragem média estimada do veículo com 
um litro de combustível. Recomenda-se utilizar um levantamento 
real, incluindo tanto cidade como estrada. Considere-se sempre a 
utilização normal do veículo. 

COMB.-CR$ PÍLITRO - Informe o preço por litro do combustível 
utilizado. | 


Apos passar estas informações ao micro TK, NE ou CP o mesmo 
calculará o custo por quilômetro rodado do veículo, sem | 
considerar apenas o custo do motorista. Quando o custo do 
motorista for fundamental, basta dividir o custo mensal do 





mesmo, incluindo-se os encargos etc., pela quilometragem mensal 
e adicionar ao custo por quilômetro rodado calculado pelo micro, 
obtendo-se assim o custo total por quilômetro. | 


A fórmula utilizada para o cálculo do custo por quilômetro 

rodado é a seguinte: 

U =M*K 

QO =(A-VIU)+(S+R+MI+T+O/2K) + (G/K) + 
((4 * P)/1) + (C/L) 


onde: 

A = Custo de aquisição do veículo. 

V = Preço de revenda do veículo após x meses de uso. 
M = Tempo de uso previsto, em meses. 

K = Quilometragem mensal estimada. 

S = Valor dos prêmios de seguro pagos. 


R = Custo das reformas por ano. 

M1 = Custo das manutenções por ano. 

T = Valora ser pago de TRU. 

O = Custo anual das trocas de óleo. 

G = Custo mensal de graxa e lavação. 

P = Custo unitário dos pneus. 

= Quilometragem estimada para os pneus. 

= Quilometragem com 1 litro de combustível. 
C = Preço do litro de combustível. 


— — 


QUILOMETRAGEM 


CUSTO AQUISICAO-CR$ 
PREÇO REVENDA-CR$ 
APOS? MESES? 

KM POR MES? 
SEGUROS-CRS/ANO 
REFORMAS-CR5/ANO 
MANUTENCAO-CR$/ANO 


TRU-CRS/ANO 
OLEO-CR$/MES 
GRAXA-LAVACAO-CR$/MES 
PNEUS-CR$ CADA 

VIDA PNEUS-KM? 

KM POR LITRO? 

COMB. = CR$ P/LIFRO 


CUSTO DO KM RGDADO 
OUTRO CALCULO? (S/N) 





a 


2 REM 
4 REM 

5 CLS 

6 PRINT 
8 PRINT 
10 PRINT 
12 INPUT 
14 PRINT 
16 PRINT 
18 INPUT 
20 PRINT 
22 PRINT 
23 INPUT 
24 PRINT 
26 PRINT 
28 INPUT 
30 PRINT 
32 PRINT 
34 INPUT 
36 PRINT 
38 PRINT 
409 INPUT 
42 PRINT 
44 PRINT 
46 INPUT 
48 PRINT 
50 PRINT 
52 INPUT 
54 PRINT 
56 PRINT 
58 INPUT 
60 PRINT 
62 PRINT 
64 INPUT 
66 PRINT 
68 PRINT 


QUILOMETRAGEM 
AUTOR: LOURIVAL KARSTEN 


AT 0,10; “QUILOMETRAGEM” 


“CUSTO AQUISICAO-CR$" 
A 

AT 2,283; À 
“PREÇO.REVENDA-CR$” 
V 

AT 3,23;V 

“APOS??? MESES? 

M 

AT4,23;M 

“KM POR MES?” 

K 

AT 5,23; K 
“SEGUROS-CR$/ANO” 
S 

AT 6,23; S 
“REFORMAS-CR$/ANO” 
R 

AT 7,23; R 
“MANUTENCAO-CR$/ANO” 
Mi 

AT 8,23; M1 
“TRU-CR$/ANO” 

T 

AT 9,23; T 
“OQLEO-CR$/ANO” 

O 

AT 10,23; O 
“GRAXA-LAVACAO- CR$/MES” 
G 

AT 11,23; G 
“PNEUS-CR$/CADA” 


41 





70 INPUT 
72 PRINT 
74 PRINT 
76 INPUT 
“T8 PRINT 
80 PRINT 
82 INPUT 
84 PRINT 
86 PRINT 
88 INPUT 
90 PRINT 
92 LET 
94 LET 
96 LET 
104 LET 
106 LET 
108 LET 
109 PRINT 
110 PRINT 
112 PRINT 
414 PRINT 
116 INPUT 
118 IF 
120 STOP 
122 SAVE 
124 RUN 






P 
AT 12,23; P 

“VIDA PNEUS-KM?” 

| 

AT 13,23; | 

“KM POR LITRO?” 

L 

AT 14,23; L 

“COMB. =CR$ P/LITRO 

C 

AT 15,23; € 

U=M*K 

Q=(A-V)/U 

Q= 0 + US+R+MI+HT+HO)/K * 12) 
0o=0+(G/K) 


-0Q=0+ W4*P)/1) 


OQ = 0 + (C/l) 

“CUSTO DO KM RODADO = “”; Q 
“OUTRO CALCULO? (S/N)” 

E = "S” THEN GOTO 5 


“QUILOMETRAGEM” 






Pesquisa | 


Um grande problema de uma pesquisa é a tabulação das 
respostas. Caso se faça uma pesquisa limitada a 26 (vinte) 
perguntas com até 5 opções por pergunta, seus problemas de 
tabulação das respostas ficam minimizados, pois o programa aqui 
apresentado permitirá que seu micro de lógica Sinclair (TK ou 
NEZ ou CP) se encarregue de parte da tarefa. 










Após a primeira vez que o programa for utilizado, não se 
recomenda o uso do comando RUN, pois o mesmo-destruirá os 
arquivos. Apenas será necessário efetuar esta destruição para 
limpar os arquivos antes de se iniciar a digitação dos dados de 
uma nova pesquisa. Para os acessos normais ao programa, utiliza- 
se o comando GOTO 24 









No vídeo aparecerá a tela 1 (vide anexo) que é o menu do 
programa. Para acessar qualquer rotina a partir desta tela, basta 
digitar o número que preçede a rotina desejada. 







Pressionando a tecla 1 e ENTER ou NEW LINE, entramos na rotina 
(1) CADASTRAR PERGUNTAS E OPCOES que apresentará a tela 2 
(vide anexo) que permitirá o cadastramento das perguntas de 1 a 
20 Não está prevista a interrupção desta rotina antes da vigésima 
pergunta, Caso necessário, basta completar perguntas e opções 
não utilizadas com espaços (comando ENTER ou NEW LINE sem 
digitar nada). 











Na tela aparecerá o número da próxima pergunta e o micro 
aguardará a digitação da descrição da pergunta com um máximo 
de 25 posições. 






Digitada a descrição da pergunta, o programa solicitará a 
descrição resumida das cinco opções possíveis (máximo de 10 
letras). Quando não existirem opções, basta incluir espaço, 
pressionando a tecla ENTER ou NEW LINE. 


















A opção 2 nos leva à rotina (2) ALTERAR PERGUNTAS E OPCÕES 
que é altamente conversacional (observe tela 3), solicitando 
inicialmente qual a pergunta que se deseja acessar. A digitação de 
Q (zero) provoca o retorno à tela 1. 


Disponível a pergunta, o programa oferece duas opções: “S” para 
alterar a pergunta e “N” para continuar. 


Neste ponto o programa entra em “looping”, permitindo a 
alteração de uma ou mais opções. A digitação de 6 (zero) romperá 
o looping, levando a uma indagação que permite duas opções: 
“S” para acessar outra pergunta ou a mesma outra vez e “N” 

para retornar à tela 1. 


A opção (3) DIGITAR RESPOSTAS mostrará a tela 4 (vide anexo) que 
é utilizada para a digitação das respostas à pesquisa. Cada vez que 
esta rotina for acessada, o contador de questionários processados 
fica incrementado de 1. Para zerar este contador sem destruir os 
arquivos, basta entrar no programa através de GOTO 18. 


O programa exibirá cada uma das perguntas de 1 a 20 
perguntando qual a opção escolhida no questionário. 
Importante: Cada pergunta permite a digitação da opção O (zero) 
que será interpretada como “não opinou”. 


Após a vigésima pergunta, o programa oferece a opção “S” para 
processar novo questionário e “N” para voltar à tela 1. 


A opção (4) APRESENTAR RESPOSTAS, que utiliza a tela 5 a 
qualquer momento, mostrará a posição das respostas a cada 
pergunta (opções escolhidas), calculando o percentual em relação 
ao universo dos questionários processados. 


Os dados permanecem na tela para consulta até ser pressionada a 
tecla ENTER ou NEW LINE, quando automaticamente será 
exibida a próxima pergunta e suas respostas. 


A última opção, (5) FIM, desvia para uma rotina inteiramente 
conversacional que permite a interrupção do programa ou a 
produção de uma cópia atualizada do programa e seus arquivos. 


PESQUISA 

OPCOES 

(1) CADASTRAR PERGUNTAS E OPCOES 
(2) ALTERAR PERGUNTAS E OPCOES 

(3) DIGITAR RESPOSTAS 

(4) APRESENTAR RESPOSTAS 

(5) FIM 


CADASTRAR PERGUNTAS E OPCOES 
PERGUNTA N. 1 
XxX 


OPCAO N. 1 
X E 
OPCAO N. 2 
XxX 
OPCAO N. 3 
H=— =» 
OPCAO N. 4 
X X 


OPCAO N. 5 
X X 





ALTERAR PERGUNTAS E OPCOES 


NÚMERO DA PERGUNTA? (9 = FIM) 
Vu) 

ALTERAR? (S/N) 

NOVA REDACAO DA PERGUNTA = 
X X 
QUE OPCAO? (0 = FIM) 
XxX 


OUTRA ALTERAÇÃO? (S/N) 


DIGITAR RESPOSTAS 


PERGUNTA N. 00 
X 


OPCAO??? Q 


CONTINUA? (S/N) 





APRESENTAR RESPOSTAS 
RESPOSTAS A PERGUNTA 09 


X 


UNIVERSO DE 00 RESPOSTAS 


X 
X 
X 
X 
X 
X 
“ 


X = MOO — 0000 0/0 
X = 0000 = UM 0/0 
X = WMO = UOOO 0/0 
X = MOBO = GU0O 0/0 
X = 0000 = 0000 0/0 
X = 0000 = 0000 0/0 


ENTER > PARA OUTRA PERGUNTA 





a 


5 REM 
10 REM 
14 DIM 
16 DIM 
18 DIM 
19 LET 
20 LET 
22 LET 
24 LET 
26 LET 
28 LET 
30 LET 
36 PRINT 
38 CLS 
40 PRINT 
42 PRINT 
44 PRINT 


PESQUISA 

AUTOR: LOURIVAL KARSTEN 

P$ (20,25) 

OS (100,10) 

R (120) 

Z=0. 

AS = “CADASTRAR PERGUNTAS E OPCOES” 
B$ = “ALTERAR PERGUNTAS E OPCOES” 
CS = “DIGITAR RESPOSTAS” 

DS = “APRESENTAR RESPOSTAS” 

ES = “FIM” 

FS = “OUTRAS” 

AT 0,6; “PESQUISA” 


AT 2,8; "OPCOES” 


AT 4,0; "(1)"; AS 
AT 6,0; “(2)”; B$ 


47 


48 


46 PRINT 
48 PRINT 
50 PRINT 
52 INPUT 
b4 IF 
bb CLS 
b6 GOTO 
100 FOR 
102 PRINT 
104 PRINT 
106 PRINT 
108 PRINT 
10 INPUT 
112 PRINT 
114 FOR 
116 PRINT 
118 PRINT 
120 INPUT 
122 PRINT 
124 NEXT 
126 CLS 
128 NEXT 
130 GOTO 
200 CLS 
201 PRINT 
202 PRINT 
204 PRINT 
206 INPUT 
207 IF 
208 IF 
210 PRINT 
212 PRINT 
214 INPUT 
216 IF 
218 PRINT 
220 INPUT 
222 PRINT 
226 PRINT 
228 INPUT 


AT 8,0; “(3)”; C$ 

AT 10,8; "(4)"; DS 

AT 12,0; “(5)”; ES 

A 

A = BORA > 5 THEN GOTO 52 


A * 100 
A =1TO20 
AT 0,2; AS 


“PERGUNTA N. “; À 


PS (A) 
PS (A) 
B=1TOS5 


“OPCAO N. ”; B 
Os UA-1)* 5 + B) 
OS (A *5 + B) 
B 


A 
38 


AT 0,3: B$ 


“NUMERO DA PERGUNTA?" (0 = FIM)” 
A 

A = Q THEN GOTO 38 

A > 26 THEN GOTO 204 

A 

“ALTERAR? (S/N) 

Z8 

23 < > “S” THEN GOTO 226 

“NOVA REDACAO DA PERGUNTA = “ 
PS (A) 

PS (A) 

“QUE OPCAO? (0 = FiM)” 

B 


230 IF 

232 IF 

234 INPUT 
236 PRINT 
238 GOTO 
240 CLS 
242 PRINT 
244 INPUT 
246 IF 

248 GOTO 
300 LET 
302 FOR 
304 PRINT 
305 PRINT 
306 PRINT 
308 PRINT 
309 PRINT 
310 INPUT 
311 PRINT 
312 IF 

313 LET 
314 CLS 
316 NEXT 
317 PRINT 
318 PRINT 
320 INPUT 
322 IF 

324 GOTO 
400 PRINT 
402 PRINT 
404 FOR 
406 PRINT 
407 PRINT 
408 PRINT 
409 PRINT 
410 PRINT 
412 FOR 
414 PRINT 
415 IF 


B = 0 THEN GOTO 240 
B > 5 THEN GOTO 226 
OS (A-1)*5 + B) 

OS (A) *5 + B) 

226 


“OUTRA ALTERACÃO? (S/N) 
Z8 

Z5 = “S” THEN GOTO 200 

38 

Z=2+1 

A=1TO20 

AT 8,7; C& 


“PERGUNTA N. “;A,PS (A) 


“OPCAO 7? "; 
B 

B 

B > 5 THEN GOTO 310 
RUAN*6+B+N=R(AN*6+B+1)4+41 


A 


“CONTINUA? (S/N)” 

Z3 

29 = "8" THEN GOTO 300 
38 

AT (0,6; DS 


A =1TO2Z0 
“RESPOSTAS A PERGUNTA “;A 


PS (A) 


“UNIVERSO DE "';Z;' RESPOSTAS” 
=1TO5 


R((A1)* 6 +B+1) = 6 THEN GOTO 418 





416 PRINT 


418 NEXT 
419 IF 
420 PRINT 


422 PRINT 
424 PRINT 
426 INPUT 
427 CLS 
430 NEXT 
432 GOTO 
500 PRINT 
502 PRINT 
504 PRINT 
510 INPUT 
515 IF 

520 STOP 
525 SAVE 
527 CLS 
530 GOTO 


OS ((A-1) * D+B);“ =“: RUA) * 6+B+1);C= ": 
R((A-1)* 6 +B+1)/Z * 100; “7 

B 

R ((A-1) * 6 + 1) = O THEN GOTO 422 

FS: dt R ((A-1) x 6 + ty; tm! 

R((A1)*6 + 1)/Z* 100; 0/7 


“ «< NEW LINE > PARA OUTRA PERGUNTA” 
Z$ 


A 

38 

“PARA COPIA ATUALIZADA” 
“CONECTE GRAVADOR” 

“DIGITE “S” E ENTER OU NEW LINE” 
28 

Z5 = "5" THEN GOTO 525 


“PESQUISA” 


20 





Gráfico | 


na 


A apresentação de dados através de gráficos é uma forma bastante 
utilizada, pois a visualização da evolução dos mesmos é muito 


facilitada. 


Por isso, considera-se a produção de gráficos muito importante, 
notadamente os gráficos em colunas. 


O programa “GRAFICO |” permite a produção de um gráfico 
com até 15 eventos. 


Após todas as quinze informações terem sido introduzidas — caso 
existam menos informações, completa-se com zeros —, o mesmo 
produzirá um gráfico em colunas, atribuindo ao valor maior 
introduzido a amplitude máxima possível e, aos outros valores, 
amplitudes proporcionais. 


Para copiar o programa em fita, podem ser utilizadas as duas 
últimas linhas do mesmo. 


na 


5 REM 
10 REM 
15 DIM 
20 PRINT 
25 FOR 
30 INPUT 
35 PRINT 
40 NEXT 
45 CLS 
50 FOR 
55 PLOT 
60 NEXT 
65 FOR 
70 PLOT 





GRAFICO | 

AUTOR: LOURIVAL KARSTEN 
K(tb) 

“INTRODUZA OS DADOS” 
X=1TO 1 

K(X) 

AT X+2,10; K(X) 

X 


X=27039 

2,X 

X 

X = 2 TO 38 STEP 4 
3,X 


51 


75 NEXT 
80 FOR 
85 PLOT 
90 NEXT 
95 FOR 
100 PRINT 
105 NEXT 
110 FOR 
115 PRINT 
120 NEXT 
125 LET 
130 LET 
135 FOR 
140 IF 
145 NEXT 
150 LET 
155 FOR 
160 LET 
165 FOR 
170 PRINT 
175 NEXT 
180 NEXT 
185 INPUT 
190 STOP 
195 SAVE 
200 RUN 


X 

X=47T063 

X,2 

X 

X=1T05 

AT 21,4X*2); X 

X 

X = 2 TO 20 STEP2 
AT X,0; 10-(X/2) 

X 

X=1 

Z=kKiX) 

X= 271015 

K(X) > Z THEN LET Z = KIX) 
X 

Z= 2/18 

X = 1T015 

Y = INT K(X)/Z 

T = 19 TO 20Y STEP + 
AT T, X*2; “D)” (GRAPHICS e SPACE) 
T 

X 

Z5 


“GRAFICO |” 









ad 


b REM 
10 REM 
15 DIM 
20 PRINT 
25 FOR 
30 INPUT 
35 PRINT 
40 NEXT 
45 FOR 
50 INPUT 
bb PRINT 
60 NEXT 
65 CLS 
70 FOR 
78 PLOT 
80 NEXT 
85 FOR 
90 PLOT 
95 NEXT 

100 FOR 
105 PLOT 
110 NEXT 
115 FOR 
120 PRINT 
125 NEXT 
1272 LET 




























Gráfico Il 





Similar ao “GRÁFICO |”, o presente programa permite a 
representação de gráficos com um número maior de dados — até 
3 Portanto, como tem maior capacidade, pode manipular séries 
históricas mais extensas e mais confiáveis. 


GRAFICO Il 


AUTOR: LOURIVAL KARSTEN 


K(30) 


“INTRODUZA OS DADOS” 


X =1T015 
KOX) 

AT X+4, 10; K(X) 
X 

X = 16 TO 30 
K(X) 

AT X11, 20; K(X) 
X 


X=27039 

2,X 

X 

X = 2TO38 STEP4 
3,X 

X 

X = 4 TO 63 

X,2 

X 

X =1TOS 

AT 21, X+1;X 

X 
Z2=1 












53 


130 FOR 
135 PRINT 
140 NEXT 
145 IF 

150 LET 
155 GOTO 
158 PRINT 
160 LET 
165 LET 
170 FOR 
175 IF 

180 NEXT 
185 LET 
190 FOR 
195 LET 
200 FOR 
205 PRINT 
210 NEXT 
215 NEXT 
220 FOR 
225 PRINT 
230 NEXT 
235 INPUT 
240 STOP 
245 SAVE 
250 RUN 


X=60TOS 

AT 21; X+1+(2*10); X 

X 

Z = >2 THEN GOTO 158 
Z=2+1 

130 

AT 21, 31; “0” 

X=1 

Z = kK(X) 

X = 2T038 

KOX] > Z THEN LET Z = K(X) 
X 

Z = 2/18 

X =1TO3 

Y = INT K(X)/Z 

T = 19T020-Y STEPA 
AT T, X+1; “L]" (GRAPHICS + SPACE) 
T 

X 

X = 2 TO 20 STEP 2 
ATX, 0; 10 -(X/2) 

X 

Z8 


“GRAFICO Il” 








Estatística | 
q 


Normalmente, é insuficiente tomar alguns dados e fazer deles um 
gráfico. E preciso também que se guardem estes dados para uso 
futuro. 


O presente programa permite a manipulação de cinco séries 
estatísticas com até 12 (doze) dados em cada série. 


Produz inicialmente uma tela (tela 1) que é o menu do sistema. As 
opções oferecidas, que podem ser acessadas digitando-se o 
número que as precede, são: 


IIMPLANTACAO que permite, através da tela 2, a digitação dos 
dados que constituirão cada uma das séries a serem armazenadas. 
A seleção de uma série já ocupada por outras informações 
provocará a destruição dos dados armazenados anteriormente, 
devendo-se tomar algumas cautelas para evitar a perda de 
informações. Para saber se já existem dados gravados é 


recomendável o acesso à mesma através da opção 2-MANUTENCAO. 


A rotina de digitação dos dados de uma série só é interrompida 


após a digitação do 12º dado, podendo, caso necessário, a série 
ser completada com zeros. 


2-MANUTENCAO permite, através da tela 3, a iso de 
qualquer dado de uma série selecionada. A seleção da série O 
(zero) provocará o retorno ao menu, e a seleção do dado O (zero) 
provocará a habilitação para selecionar nova série. Para verificar 
os dados contidos em uma série, basta selecioná-la e, ao invés de 
realizar alterações, selecionar o dado 6 (zero). 


3-ATUALIZACÃO é a rotina que permite, através da tela 4, a 
introdução de um novo dado à série, realizando-se a sua 
atualização através do rolamento de todos os dados para a 
posição imediatamente anterior, de forma que o dado 1 
desaparecerá dando lugar ao dado 2, e assim por adiante. Esta 
rotina permitirá assim que a série seja sempre formada pelos 
dados dos últimos 12 meses. 





















Após a introdução do dado mais recente, o programa montará a 
nova situação da série, exibindo-a na tela. Para sair desta rotina, 
basta selecionar a série Ó (zero), retornando-se ao menu. 


A-GRAFICO permite que, respondendo à pergunta “Qual a 
série?” seja selecionada a série de 12 dados que serão 
apresentados graficamente. O gráfico de colunas representará O 
maior dado da série como a amplitude máxima permitida pela 
tela e atribuirá aos demais dados amplitudes proporcionais. Após 
a apresentação do gráfico na tela, bastará pressionar a tecla NEW 
LINE ou ENTER para retornar ao menu, 


Para produzir cópia do programa em fita, podem ser utilizadas as 
duas últimas linhas do mesmo. 


Recomendação: Não se executa o programa utilizando O | 
comando RUN, pois o mesmo destruirá os dados armazenados. 
Utiliza-se o comando GOTO 24 


ESTATISTICA 


1-IMPLANTACAO 
2- MANUTENCAO 
3-ATUALIZAÇAO 
4-GRAFICO 
5-FIM 





IMPLANTACAO 
QUAL A SERIE? (1/2/3/4/5) 
DIGITE A SERIE 

DOBHBADA 


HOHNADA 
CONTINUA? (S/N) 


MANUTENCAO 
QUAL A SERIE? (1/2/3/4/5) 
VA id BODODADA 


. º 
e e 
e “ 
“ º 


DABAGADA O00DADDA 
QUAL DADO ALTERAR? (1 A 12) 





ATUALIZACAO 
OUAL A SERIE? (1/2/3/4/5) 
DBOBODDA 


DOODODDA 
DIGITE O ULTIMO DADO 





nt 
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2 REM ESTATISTICA 
4 REM AUTOR: LOURIVAL KARSTEN 
6 DIM K (60) 
20 CLS 
21 FAST 
22 PRINT AT 0,6; “ESTATISTICA” 
24 PRINT AT 2,0; “1-IMPLANTACAO” 
26 PRINT AT 4,0; '2-MANUTENCAO” 
28 PRINT AT 6,0; '3-ATUALIZACAO” 
30 PRINT AT 8,0; "4-GRAFICO” 
32 PRINT AT 10,0; "5-FIM” 


38 INPUT Z 

40 F Z > 5ORZ< 1 THEN GOTO 38 
42 GOTO  Z*100 

100 CLS 


102 PRINT AT 0,6; “IMPLANTACAO” 
104 PRINT  AT2,0: "QUAL A SERIE? (1/2/3/4/5) 
106 INPUT L 


107 IF 

108 PRINT 
10 PRINT 
112 PRINT 
114 FOR 
116 INPUT 
118 PRINT 
120 NEXT 
122 PRINT 
124 INPUT 
126 1F 

128 GOTO 
200 CLS 
202 PRINT 
204 PRINT 
206 INPUT 
208 IF 

210 IF 

212 PRINT 
214 FOR 
216 PRINT 
218 NEXT 
220 PRINT 
222 INPUT 
224 IF 

226 IF 

228 INPUT 
230 PRINT 
232 GOTO 
300 CLS 
302 GOSUB 
304 INPUT 
306 IF 

308 IF 

310 PRINT 
312 GOSUB 
318 PRINT 
320 FOR 
322 LET. 


L<10RL > 5THEN GOTO 106 
L 
AT 4,0; “DIGITE A SERIE:” 


X=1TO1 
K (012) —12 + X) 


“AT (5+X), 10; K ((L*12)—12 + X) 


X 

AT 20,0; "CONTINUA? (S/N)” 
Pá: 
28 = “3” THEN GOTO 100 
20 


AT 0, 7; “MANUTENCAO” 

AT 2,0; “QUAL A SERIE? (1/2/3/4/5)" 
L 

L = O THEN GOTO 20 

L<10RL > 5THEN GOTO 206 

L 

X=1TO12 

AT (D+X), 10; K ((1*12)—12+X) 

X 

AT 28,0; “QUE DADO ALTERAR? (1 a 12)” 
M 

M < GORM > 12 THEN GOTO 222 
M = À THEN GOTO 200 

K ((1*12)—12 + M) 

AT (b+M), 20; K ((L* 12) — 12 + M) 
220 


350) 

L 

L = 6 THEN GOTO 20 

L< Q00ORL > 5 THENGOTO 304 

L 

372 

AT 20,0; “DIGITE O ULTIMO DADO” 
X=1701 

K ((1%12)-12+X) = K ((U12)-10+X) 





60 


324 NEXT 
326 INPUT 
328 CLS 
330 GOSUB 
332 GOSUB 
334 PRINT 
336 PRINT 
338 INPUT 
340 IF 

342 GOTO 
350 PRINT 
352 PRINT 


354 RETURN 


3/2 FOR 
374 PRINT 
376 NEXT 


378 RETURN 


400 CLS 
402 PRINT 
404 INPUT 
406 IF 

408 CLS 
410 FOR 
412 PLOT 
414 NEXT 
416 FOR 
418 PLOT 
420 NEXT 
422 FOR 
424 PLOT 
426 NEXT 
428 FOR 
430 PRINT 
432 NEXT 
434 FOR 
436 PRINT 
438 NEXT 
440 LET 
442 FOR 


X 
K (1*12) 


350 
372. 
AT 18,0; “ESTE E O NOVO CONTEUDO” 


AT 20,0; “CONTINUA? (S/N)” 
Zs 

23 = “S" THEN GOTO 300 
20 


AT 0,6; “ATUALIZACAO” 
AT 2,0; "QUAL A SERIE? (1/2/3/4/b)"; 


X = 1 TO 12 
AT (B+X), 10; K (112) 42 + X) 
X 


“QUAL A SERIE? (1/2/3/4/b)" 
L 
L<10RL > 5THEN GOTO 400 


X = 21039 

2,X 

X 

X = 27038 STEP4 
3,X 

X 

X = 4 TO 68 

X,2 

X 

X=27013 
AT2,1 + (X*2); X-1 
X 

X = 2 TO 20 STEP 2 
AT X,0; 10-(X/2) 
X. 
Z=kK((0L*12)-1]) 
X = 2TO 12 


444 IF 

446 NEXT 
448 LET 
460 FOR 
452 LET 
454 LET 
456 FOR 
458 PRINT 
460 NEXT 
462 NEXT 
464 INPUT 
466 GOTO 
500 STOP 
b02 SAVE 
504 GOTO 


K ((L512)12+X) > Z THEN LET Z = K ((1123424X) 
x 

Z=2Z/18 

X=2T013 

Y = KL92)-13 + X) 

Y = INTY/Z 

T=19T020-Y STEP + 

ATT, 1 +(X* 2); “0” (GRAPHICS + SPACE) 
à 

x 

Z5 

20 


“ESTATISTICA” 
20 





Análise Empresarial 


62 





Este programa de análise da situação de uma empresa procura os 
índices mais significativos para uma avaliação da mesma. 
Os índices calculados são: 


LIQUIDEZ GERAL, que é calculada através da divisão do 
Disponível mais o Realizável Total (Realizável a Curto e a Longo 
Prazo) pelo Exigível a Curto e a Longo Prazo). 


DESPESAS FINANCEIRAS SOBRE VENDAS, que é calculado 
através da divisão das Despesas Financeiras do Exercício (inclusive 


- variação cambial sobre empréstimos em moeda estrangeira) sobre 


as Vendas Totais. Caso este percentual esteja na faixa dos 4%, a 
situação é muito boa; se for superior a 14%, a situação está 
certamente um tanto descontrolada. 


RENTABILIDADE PATRIMONIAL, que é calculada dividindo-se o 
Lucro Líquido após o I.R. pelo Patrimônio Líquido. Caso-o 
percentual esteja inferior a 8%, provavelmente a empresa está 
correndo riscos demais para pouco resultado. | 


RENTABILIDADE SOBRE VENDAS, que é obtida dividindo-se o 
Lucro Líguido após o I.R. pelas Vendas Totais. Este índice é 
bastante flexível, pois é mais importante a Rentabilidade 
Patrimonial, mas um percentual de 1% ou 2% é certamente 
preocupante. 


ENDIVIDAMENTO GERAL, obtido dividindo-se o Exigível Total 
(Exigível a Curto e a Longo Prazo) pelo Total do Ativo. 


CAPITALIZAÇÃO, obtida através da divisão do Patrimônio Líquido 
pelo Ativo Total. Um índice inferior a 25% é preocupante. A 
média brasileira está em torno de 45%. 





na 


O programa entra na tela 1, chamando um a um os dados 

“necessários para os diversos cálculos. Após a digitação do último 
dado, entra automaticamente a tela 2 que exibe todos os 
percentuais e encerra a execução. 


Para novos cálculos deve-se retornar ao comando Run, 
reiniciando o programa. 


Para cópia do programa em fita podem ser utilizadas as duas 
últimas linhas do mesmo. 


LUCRO LIQUIDO APOS I.R. 
BOBO 
VENDAS TOTAIS 
to) 
DISPONIVEL + REALIZAVEL TOTAL 
DODODODO 
EXIGIVEL TOTAL 

- COBODOD 
ATIVO TOTAL 
COOIDIO 
DESP. FINANCEIRAS 
DADA 
PATRIMONIO LIQUIDO 
DODODADO 


63 


64 


ANALISE EMPRESARIAL 
LIQUIDEZ GERAL EH...00B00ADA D/0 
DESP. FINANCEIRAS DE.B0BODADA 0/0 


RENTAB. PATRIMONIAL ..00000000 0/0 
RENTAB. SOBRE VENDAS .00000000 0/0 
ENDIVIDAMENTO GERAL .00090000 0/0 


CAPITALIZAÇÃO 


Listagem 


5 REM 
10 REM 
15 PRINT 
20 INPUT 
25 PRINT 
30 PRINT 
35 INPUT 
40 PRINT 
45 PRINT 
50 INPUT 
b5 PRINT 
60 PRINT 
65 INPUT 
70 PRINT 
75 PRINT 
80 INPUT 
85 PRINT 


DOBONODO 0/0 





ANALISE EMPRESARIAL 
AUTOR: LOURIVAL KARSTEN 
"LUCRO LIQUIDO APOS 1.R 
L 

L 

“VENDAS TOTAIS” 


<< 


“DISPONIVEL + REALIZAVEL TOTAL* 


oO 


“EXIGIVEL TOTAL” 


mm 


“ATIVO TOTAL 
A 
A 


90 PRINT 
95 INPUT 
100 PRINT 
105 PRINT 
NO INPUT 
115 PRINT 
120 PAUSE 
125 CLS 
127 PRINT 
128 PRINT 
130 PRINT 
135 PRINT 
140 PRINT 
145 PRINT 
150 PRINT 
155 PRINT 
160 PRINT 
165 PRINT 
170 PRINT 
175 PRINT 
180 PRINT 
185 STOP 
190 SAVE 
195 RUN 


“DESP. FINANCEIRAS” 
F 

F 

“PATRIMONIO LIQUIDO” 
P 

P 

100 


“ANALISE EMPRESARIAL” 


“LIQUIDEZ GERAL EH..”; D/E * 100; “ 0/0" 
“DESP. FINANCEIRAS DE”; F/V * 100; “ 0/0" 
“RENTAB. PATRIMONIAL..; L/P * 100; “ 0/0" 
“RENTAB. SOBRE VENDAS"; L/V * 100; “ 0/0" 
“ENDIVIDAMENTO GERAL”; E/A * 100; ” 0/0" 
“CAPITALIZAÇÃO 


“ANALISE” 






























Andlise de Balanco 


In 


O balanço da empresa é a peça fundamental para a avaliação do 
desempenho da mesma. A evolução dos diversos índices nos 
fornece subsídios para a avaliação do risco da mesma. Isto é 
importante não só para acionistas e credores, como ainda para 
clientes e colaboradores. 


Para esta análise, elaboramos uma série de quatro programas que 
analisam diferentes aspectos da empresa, de uma forma global. 


Estes programas foram escritos para micros que utilizem o BASIC e 
a arquitetura das máquinas Sinclair (TK, NE, CP). Ainda assim, 
podem ser facilmente convertidos para qualquer outro micro, 
alterando-se apenas algumas instruções. 


Para o referido trabalho, utilizamos como padrão um plano de 
contas que reproduzimos a seguir. Caso haja alguma diferença de 
nomenclatura em relação ao balanço a ser analisado, basta 
verificar a sua localização no balanço. 






1.1 - ATIVO CIRCULANTE 
1.1.1 - BENS NUMERARIOS 

1.1.2 - DEPOSITOS BANCARIOS A VISTA 

1.1.3 - TITULOS VINCULADOS AO MERCADO ABERTO 
1.1.4 - ESTOQUES 

1.1.4.1 - MATÉRIAS-PRIMAS 

1.1.4.2 - MATÉRIAS-PRIMAS AUXILIARES 

1.1.4.3 - MATERIAL DE EMBALAGEM 

1.1.4.4 - MATERIAL DE CONSUMO 

1.1.4.5 - MATERIAL DE MANUTENCAO 

1.1.4.6 - PRODUTOS ACABADOS 

1.1.4.7 - PRODUTOS EM ELABORACAO 

1.1.5 - CREDITOS 
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1.1.5.1 - CHEQUES A RECEBER 

1.1.5.2 - CONTAS A RECEBER DE CLIENTES DO EXTERIOR 
1.1.5.3 - DUPLICATAS A RECEBER 

1.1.5.4 - TITULOS DESCONTADOS ( — ) 

1.1.5.5 - PROVISÃO PARA DEVEDORES DUVIDOSOS ( — ) 
1.1.5.6 - EMPRESAS SUBSIDIARIAS OU COLIGADAS 
1.1.5.7 - ADIANTAMENTO PARA FORNECEDORES 

1.1.5.8 - ADIANTAMENTO PARA EMPREGADOS 

1.1.5.9 - ADIANTAMENTOS PARA REPRESENTANTES 
1.1.5.10 - DEPOSITOS BANCARIOS VINCULADOS 

1.1.6 - DESPESAS DIFERIDAS 

1.2 - REALIZAVEL A LONGO PRAZO 

1.2.1 - OUTROS CREDITOS/VALORES E BENS 

1.2.1.1 - DEPOSITOS COMPULSORIOS 

1.2.1.2 - INCENTIVOS FISCAIS A APLICAR 

1.3 - ATIVO PERMANENTE 

1.3.1 - INVESTIMENTOS 

1.3.1.1 - PARTICIPACOES EM OUTRAS EMPRESAS 
1.3.1.2 - PARTICIPACOES POR INCENTIVOS FISCAIS 
1.3.2 - IMOBILIZADO 

1.3.2.1 - VALORES CORRIGIDOS 

1.3.2.2 - DEPRECIACOES ( — ) 

1.3.3 - DIFERIDO 

1.3.3.1 - DESPESAS PRE OPERACIONAIS A AMORTIZAR 
1- TOTAL DO ATIVO 


Passivo 


na 


2.1 - PASSIVO CIRCULANTE 

21.1 - FORNECEDORES 

2.1.2 - INSTITUICOES FINANCEIRAS 
2.1.3 - PROVISOES 

21.31 - IMPOSTO DE RENDA 

2.1.3.2 - FERIAS 

2.1.3.3 - 13 SALARIO 

2.1.4- OUTRAS 

2.1.4.1 - OBRIGACÕOES COM PESSOAL 
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2.1.4.2 - OBRIGACOES PREVIDENCIARIAS 
2.1.4.3 - OBRIGACOES TRIBUTARIAS 
2.1.4.4 - DIVIDENDOS PROPOSTOS 
2.1.4.5 - PARTICIPACAO DOS ADMINISTRADORES 

2.1.4.6 - EMPRESA CONTROLADORA 

2.1.4.7 - DIRETORIA E ACIONISTAS 

2.1.4.8 - REPRESENTANTES 

2.1.4.9 - OUTRAS CONTAS 

2.2 - PASSIVO EXIGIVEL A LONGO PRAZO 

2.2.1 - INSTITUICOES FINANCEIRAS 

2.2.2 - OUTRAS EXIGIBILIDADES 

2.3 - PATRIMONIO LIQUIDO 

2.3.1 - CAPITAL SOCIAL 

2.3.2 - RESERVA DE CAPITAL 

2.3.2.1 - RESERVA DE CORRECAO MONETARIA DO CAPITAL 
2.3.2.2 - RESERVA PROVENIENTE DE INCENTIVOS FISCAIS 
2.3.3 - RESERVA DE LUCROS 

2.3.3.1 - RESERVA LEGAL 

2.3.3.2 - LUCROS EM SUSPENSO 

2.4 - LUCROS ACUMULADOS 

2 - TOTAL DO PASSIVO 























Demonstrativo de Resultado 
Es 


3.1 - RECEITA BRUTA DAS VENDAS E SERVICOS 
3.1.1 - VENDAS DE PRODUTOS, MERCADORIAS E SERVICO 

3.1.1.1 - RECEITAS DE VENDAS NO MERCADO INTERNO 

3.1.1.2 - RECEITAS DE VENDAS NO MERCADO EXTERNO 

3.1.1.3 - RECEITAS DE INCENTIVOS DE EXPORTACAO 

3.1.2 - DEDUCOES DE VENDAS ( — ) 

3.1.2.1 - DEVOLUCOES DE MERCADORIAS 

3.1.2.2 - IMPOSTO SOBRE CIRCULACAO DE MERCADORIAS - ICM 
3.1.2.3 - PIS SOBRE FATURAMENTO 

3.1.2.4 - IMP. SOBRE SERV. DE QUALQUER NATUREZA - ISSQN 
3.1.2.5 - FUNDO DE INVESTIMENTO SOCIAL - FINSOCIAL 

3.2 - RECEITA LIQUIDA DAS VENDAS E SERVICOS 

3.2.1 - CUSTO DOS PRODS. MERCAD. E SERV. VENDIDOS ( — ) 
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3.3 - LUCRO OPERACIONAL BRUTO 
3.3.1 - DESPESAS COM VENDAS ( — ) 

3.3.1.1 - COMISSÕES DE VENDAS 

3.3.1.2 - PROPAGANDA E PUBLICIDADE 

3.3.1.3 - OUTRAS DESPESAS 

3.3.2 - DESPESAS GERAIS ( — ) 

3.3.2.1 - HONORARIOS DA DIRETORIA 

3.3.2.2 - IMPOSTOS E TAXAS DIVERSAS 

3.3.2.3 - DESPESAS ADMINISTRATIVAS 

3.3.2.4 - DESPESAS FINANCEIRAS MENOS RECEITAS FINANCEIRAS 
3.3.2.5 - OUTRAS DESPESAS 

3.3.3 - DEPRECIACOES NAO INCLUIDAS NOS CUSTOS ( — ) 
3.3.4 - PROVISAO PARA DEVEDORES DUVIDOSOS ( — ) 
3.4 - LUCRO OU PREJUIZO OPERACIONAL 

3.41 - RECEITAS NAO OPERACIONAIS 

3.4.2 - DESPESAS NAO OPERACIONAIS 

3.4.3 - CORREÇAO MONETARIA DO BALANÇO 

3.5 - LUCRO/PREJUIZO DO EXERC. ANTES DO IMPOSTO DE RENDA 
3.6 - IMPOSTO DE RENDA 

3.7 - LUCRO/PREJUIZO DEPOIS DO IMPOSTO DE RENDA 
3- TOTAL DE RESULTADOS 





Análise Financeira 


O primeiro programa da série, destinado à análise financeira, 
calcula cinco diferentes índices que são: 


1 - SOLVENCIA IMEDIATA, que fornece a relação entre o 
Disponível (Bens Numerários + Depósitos bancários à vista + 
Títulos vinculados ao mercado aberto) em relação ao Exigível a 
Curto Prazo (Passivo Circulante). 


A fórmula é: 
111 +4 11.24 11.3 


2] 


X 100 


2 - SOLVENCIA SECA, que é o índice obtido através da divisão do 
Disponível mais os direitos a curto prazo (Ativo Circulante menos 
Estoque e menos Adiantamentos a Fornecedores) pelo Passivo 
Circulante (Exigível a Curto Prazo). 


Calculado pela fórmula: 
11-11.4- 1.1.5.7 


2.1 


X 100 


3 - SOLVENCIA CORRENTE, que fornece um índice que é o 
produto da divisão do Ativo Circulante (Disponível mais 
Realizável a curto prazo) PSI Passivo Circulante (Exigível a Curto 
Prazo). 


Usando os códigos do Plano de Contas, a fórmula fica assim: 


o X 100 
2.1 


4 - SOLVENCIA GERAL é o índice obtido através da divisão do 
Ativo Circulante mais Realizável a Longo Prazo pelo Passivo 
Circulante mais o Exigível a Longo Prazo. 





A fórmula é: 
11 + 1.2 


21 + 2.2 


X 100 


5 - QUOCIENTE DE SATURAÇÃO, que é obtido através da divisão 
do capital de giro a curto prazo (Ativo Circulante menos Passivo 
Circulante) pelo Exigível a Longo Prazo. 


A fórmula é a seguinte: 


11-21 X 100 
Pu, 


Para cada índice, na tela aparecerá a significação do mesmo em 
relação ao que é considerado academicamente como normal. 
Aparecerá ainda uma sucinta explicação a respeito de cada um, 
bem como o demonstrativo de todos os valores que compõem o 
cálculo do mesmo. 


Operação do Programa 


A tela 1 (vide anexo) serve para informar os dados retirados do 
balanço que servirão para o cálculo dos diversos índices. O 
programa só interromperá esta rotina após a digitação de todos os 
dados. 


Na tela 2, que aparecerá logo a seguir, pode-se observar o menu 
que nos oferece 7 (sete) alternativas. Para acessar qualquer das 
rotinas oferecidas, basta digitar o número que antecede a 
alternativa desejada, seguida de ENTER ou NEW LINE, 
dependendo do seu micro. 

Digitando-se 1, obtemos a tela 3, relativa à rotina 1-SOLVENCIA 
IMEDIATA - que produz um completo demonstrativo do cálculo 
deste índice, bem como uma avaliação técnica do mesmo. 

A digitação do número 2 provoca o desvio para a rotina 
2-SOLVENCIA SECA, que produz a tela 4 onde encontramos o 
demonstrativo do cálculo do índice bem como a sua avaliação. 
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A rotina 3-SOLVENCIA CORRENTE produz a tela 5, demonstra o 
cálculo do índice e fornece a sua avaliação segundo padrões 
acadêmicos. 


A rotina 4-SOLVENCIA GERAL, que monta a tela 6, também 
demonstra os dados utilizados no cálculo, os valores envolvidos e 
a significação do mesmo segundo padrões acadêmicos. 


A rotina 5-QUOCIENTE DE SATURACÃO produz a tela 7 onde é 
demonstrado o cálculo deste índice e exibida uma mensagem 
sobre a avaliação técnica do mesmo. 


A escolha da rotina 6TODOS provocará o aparecimento das telas 
3a 7, na segiiência. Para passar de uma tela a outra, basta 
pressionar a tecla ENTER ou NEW LINE. 


A última opção - 7-NENHUMA - encerra a execução do 
programa. Para produzir cópia do programa podem ser utilizadas 
as duas últimas linhas, 


Obs.: Devido ao limite de 8 (oito) dígitos para números, 
recomenda-se a digitação de todos os dados em Cr$ 1.000.000,00 
(milhões de cruzeiros). 


INFORME OS DADOS: 


BENS NUMERARIOS 
BRAGADA 
DEPOSITOS BANC. A VISTA 

COBPDADA 

TITULOS VINCUL. MERCADO ABERTO 
RODANDO 

PASSIVO CIRCULANTE 

BOBABOBA 

ATIVO CIRCULANTE 

DOBDONDA 

REALIZAVEL A LONGO PRAZO 
DPODOAAO 

EXIGIVEL A LONGO PRAZO 

DADADODA 

ESTOQUES 

HOBODADO 

ADIANTAMENTOS A FORNECEDORES 
ABOGBODA 








VOCE QUER? 
1-SOLVENCIA IMEDIATA 
2-SOLVENCIA SECA 
3-SOLVENCIA CORRENTE 
4-SOLVENCIA GERAL 

5- QUOCIENTE DE SATURACAO 
6 TODOS 

7-NENHUM 


SOLVENCIA IMEDIATA 


DISPONIVEL EM RELACAO AO 
EXIGIVEL A CURTO PRAZO 


BENS NUMERARIOS GoBdBAGo 

( + ) DEPOSITOS BANC. A VISTA 

DODHONDA 

( + JTITULOS VINCUL. MERCADO ABERTO 
DOBODLDA 

(/) PASSIVO CIRCULANTE 

DADO 

( = ) SOLVENCIA IMEDIATA 

GOBODODA 


ESTE INDICE EH 
X—— mensagem XX 


< ENTER > PARA TROCAR TELA 





SOLVENCIA SECA 


DISPONIVEL MAIS DIREITOS A CURTO 
PRAZO SOBRE O EXIGIVEL A CURTO 
PRAZO 


ATIVO CIRCULANTE 

CODADODO 

( — JESTOQUES  00000M0A 

( — ) ADIANTAMENTOS A FORNECEDORES 
DODDADDA 

(7) PASSIVO CIRCULANTE 

DODOGUDO 

( = ) SOLVENCIA SECA 

DODODANO 


ESTE INDICE REPRESENTA 
XX mensagem. XxX 


< ENTER > PARA TROCAR TELA 


SOLVENCIA CORRENTE 


DISPONIVEL MAIS REALIZAVEL A 
CURTO PRAZO EM RELACAO AO 
EXIGIVEL A CURTO PRAZO 


ATIVO CIRCULANTE 
DOOLADO 

(/) PASSIVO CIRCULANTE 
DOOBODDO 

( = | SOLVENCIA CORRENTE 
DODADAIO 


ESTE INDICE INDICA: 
X- mensagem o X 
< ENTER > PARA TROCAR FITA 





SOLVENCIA GERAL 


ATIVO CIRCULANTE MAIS REALIZAVEL 
A LONGO PRAZO DIVIDIDO PELO 
PASSIVO CIRCULANTE MAIS O 
EXIGIVEL A LONGO PRAZO 


ATIVO CIRCULANTE 

DODBOLHO 

( + ) REALIZAVEL A LONGO PRAZO 
DODOGONO 

(7) PASSIVO CIRCULANTE 
COOOLODO 

( + JEXIGIVEL A LONGO PRAZO 
BODÓDIOA 

( = )JSOLVENCIA GERAL 

DOBNGADA 


ESTE INDICE INDICA: 
X mensagem X 


< ENTER > PARA TROCAR TELA 


QUOCIENTE DE SATURACAO 


CAPITAL DE GIRO A CURTO PRAZO 
EM RELACAO AO EXIGIVEL A LONGO 
PRAZO 


ATIVO CIRCULANTE 

OBM 

( — ) PASSIVO CIRCULANTE 
DODODADO 

(/) EXIGIVEL A LONGO PRAZO 
DOMINA 

( = ) QUOCIENTE DE SATURACAO 
COBAIA 


O QUOCIENTE INDICA: 


XxX mensagem.  ———  X 
< ENTER > PARA TROCAR TELA 
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ã 


2 REM 
4 REM 
6 LET 
8 LET 

10 LET 

12 LET 

14 LET 

16 LET 

18 LET 

20 LET 

22 LET 

28 LET 

30 LET 

32 LET 

34 LET 

36 LET 

40) PRINT 

42 PRINT 

44 PRINT 

46 INPUT 

48 PRINT 

5O PRINT 

b2 INPUT 

54 PRINT 

b6 PRINT 

58 INPUT 

60 PRINT 

62 PRINT 

64 INPUT 

66 PRINT 

68 PRINT 

70 INPUT 

72 PRINT 

74 PRINT 

76 INPUT 

78 PRINT 





ANALISE FINANCEIRA 
AUTOR: LOURIVAL KARSTEN 

AS = “BENS NUMERARIOS” 

B$ = “DEPOSITOS BANC. A VISTA" 
CS = “TITULOS VINCUL. MERCADO ABERTO” 
D$ = “PASSIVO CIRCULANTE” 

ES = “ATIVO CIRCULANTE” 

FS = “REALIZAVEL A LONGO PRAZO” 

G$ = “EXIGIVEL A LONGO PRAZO” 

H$ = “ESTOQUES” 

8 = “ADIANTAMENTOS A FORNECEDORES” 
J$ = “SOLVENCIA IMEDIATA” 

KS = “SOLVENCIA SECA" 

L$ — “SOLVENCIA CORRENTE” 

M$ = “SOLVENCIA GERAL" 

N$ = “QUOCIENTE DE SATURAÇÃO” 
“INFORME OS DADOS:” 


80 PRINT 
82 INPUT 
84 PRINT 
86 PRINT 
88 INPUT 
90 PRINT 
92 PRINT 
94 INPUT 
96 PRINT 
102 PAUSE 
104 CLS 
106 PRINT “VOCE QUER?” 
108 PRINT 
NO PRINT O “1-4 JS 
112 PRINT 
114 PRINT O “2-" KS 
116 PRINT 
118 PRINT “3:15 
120 PRINT 
122 PRINT “4; M$ 
124 PRINT 
126 PRINT “5: N$ 
128 PRINT 
130 PRINT  “6TODOS” 
132 PRINT 
134 PRINT “7-NENHUM” 
136 INPUT Z 
138 IF Z>70RZ = OTHEN GOTO 136 
142 GOTO  (2*100) + 100 
140 CLS 
150 PRINT 
152 PRINT  “< ENTER > PARA TROCAR TELA” 
154 INPUT 25 
156 GOTO 104 
200 GOSUB 220 
202 GOTO 150 
220 PRINT J$ 
222 PRINT 
e24 PRINT “DISPONIVEL EM RELACAO AO” 





225 PRINT 
226 PRINT 
228 PRINT 
230 PRINT 
232 PRINT 
234 PRINT 
236 LET 
238 PRINT 
240 PRINT 
242 PRINT 
244 IF 

246 IF 

248 IF 

250 IF 


252 RETURN 


“EXIGIVEL A CURTO PRAZO” 


AS; A 

“+)": B8,B 

+)". C8,C 

“Y; D$,D 

K = (A+B+C)* 100)/D 
=P; J$,K 


“ESTE INDICE EH” 

K < 5 THEN PRINT “FRACO” 

K < 19 ANDK > = 5 THEN PRINT “BOM” 

K < 15 ANDK > = 10 THEN PRINT “OTIMO” 
K > = 15 THEN PRINT “EXCESSIVO” 


300 GOSUB 320 


302 GOTO 
320 PRINT 
322 PRINT 
324 PRINT 


326 PRINT 
328 PRINT 
330 PRINT 
332 PRINT 
334 PRINT 
336 LET 
338 PRINT 
340 PRINT 
341 PRINT 
342 IF 

344 IF 

346 IF 

348 IF 

350 IF 

352 IF 


354 IF 


356 RETURN 


159 
KS 


“DISPONIVEL MAIS DIREITOS A CURTO PRAZO 
SOBRE O EXIGIVEL A CURTO PRAZO” 


ES, E 

“0 H8,H 

“CC: I$,] 

“UV: D5,D 
K=(E-H-1)*100)/ D 
"(=)"; K$,K 

“ESTE INDICE REPRESENTA! 


K < 20 THEN PRINT “EXCESSO DE RISCO” 

K < B9ANDK > = 28 THEN PRINT “RISCO ACENTUADO” 
K < 70 ANDK > = 56THEN PRINT “RISCO FINANCEIRO” 
K < 99 ANDK > = 70 THEN PRINT “LEVE RISCO” 

K < 100 ANDK > = 90 THEN PRINT “BOM RISCO” 

K < 120 ANDK > = 190 THEN PRINT “SITUAÇÃO 


 FOLGADA” 


K > = 120 THEN PRINT “SITUAÇÃO MUITO FOLGADA" 





400 GOSUB 429 


405 GOTO 
420 PRINT 
422 PRINT 
424 PRINT 


425 PRINT 
426 PRINT 
428 PRINT 
430 PRINT 
432 LET 
434 PRINT 
436 PRINT 
436 PRINT 
437 PRINT 
438 IF 

440 IF 


442 IF 


444 1F 
446 IF 


448 IF 
450 IF 
462 IF 
4b4 IF 
456 IF 


458 RETURN 


500 GOSUB 
b05 GOTO 
520 PRINT 
522 PRINT 
524 PRINT 


b26 PRINT 
b28 PRINT 


150 
L$ 


“DISPONIVEL MAIS REALIZAVEL A 
CURTO PRAZO EM RELACAO AO” 
“EXIGIVEL A CURTO PRAZO” 


ES, E 
“49º:;D$,D 

K = (E/D) * 100 
H=)0, L$,K 


“ESTE INDICE INDICA:” 


K < 49 THEN PRINT “DESEQUILIBRIO GRAVE” 

K < 70 ANDK > = 40 THEN PRINT “DESEQUILIBRIO 
AVULTADO 

K < 90 ANDK > 
DESEQUILIBRIO” 
K < 100 ANDK > 
K < 10 ANDK > = 
REDUZIDA" 

K < 130 ANDK > = 110 THEN PRINT “NORMALIDADE” 
K < 150 AND K > = 130 THEN PRINT “SATISFATORIA” 
Kk < 200 AND K > = 150 THEN PRINT “FOLGA” 
K < 300 ANDK > = 200 THEN PRINT “BASTANTE FOLGA" 
K > = 300 THEN PRINT “MUITA FOLGA” 


70 THEN PRINT “REGULAR 


= 90 THEN PRINT “DEFICIENCIA” 
109 THEN PRINT “SOLVENCIA 


520 
150 
M$ 


“ATIVO CIRCULANTE MAIS REALIZAVEL 
A LONGO PRAZO DIVIDIDO PELO 
PASSIVO CIRCULANTE E MAIS O 
EXIGIVEL A LONGO PRAZO” 


ES, E 





80 L 





530 PRINT +)! FS,F 

532 PRINT “(//';D$5,D 

534 PRINT “(+);68,6 

536 LET K=E+FJMD+G)*10O 

538 PRINT “(=)";M5,K | 

539 PRINT 

540 PRINT “ESTE INDICE INDICA:” 

542 IF K < 40 THEN PRINT “GRAVE DESEQUILIBRIO” 

544 IF K < 70 ANDK > = 49 THEN PRINT “MUITO 
DESEQUILIBRIO” 

546 IF K < 99 AND K > =70 THEN PRINT “DESEQUILIBRIO” 

548 IF K < 100 AND K > = 99 THEN PRINT “LEVE 
DESEQUILIBRIO” 

550 IF K < 0 ANDK > = 100 THEN PRINT “APENAS 

| EQUILIBRADO” 
552 IF K < 130 ANDK > = 110 THEN PRINT “SITUAÇÃO 
| NORMAL 

554 IF K < 159 ANDK > = 130 THEN PRINT “SATISFATORIA” 

556 IF K < 200 ANDK > = 150 THEN PRINT “FOLGA” 

558 IF K < 300 ANDK > = 209 THEN PRINT “BASTANTE FOLGA” 

560 IF K > = 300 THEN PRINT “EXCELENTE SITUAÇÃO” 

562 RETURN 

600 GOSUB 620 

605 GOTO 150 

620 PRINT NS 

622 PRINT 

624 PRINT “CAPITAL DE GIRO AO CURTO PRAZO 

EM RELACAO AO EXIGIVEL A LONGO PRAZO” 

626 PRINT 

628 PRINT E$,E 

630 PRINT “(-)";D5,D 

632 PRINT “(/)';G8,6G 

64 LET  K=E-D)*100)/G 

636 PRINT “(=)"; N$,K 

637 PRINT 

638 PRINT “O QUOCIENTE INDICA:” 

640 PRINT 

641 IF K < 50 THEN PRINT “GRAVE SATURACAO” 

642 IF 





K < 70 ANDK > = 50 THEN PRINT “REGULAR 
SATURACAO” | 


644 IF K < 99 ANDK > = 70 THEN PRINT “LEVE SATURACAO” 
646 IF K < 100 ANDK > = 90 THEN PRINT “SATURACAO” 
648 IF K < 159 ANDK > = 100 THEN PRINT “PODE CAPTAR” 
650 IF K < 200 ANDK > = 150 THEN PRINT"BOA CAPACIDADE DE 
CAPTACAO” 
65B21F | K> = 2007THEN PRINT “OTIMA CAPACIDADE DE 
CAPTACAO”" 

654 RETURN 

700 GOSUB -. 220 

702 GOSUB 750 

704 GOSUB 329 

706 GOSUB 750 
- 708 GOSUB 420 

710 GOSUB 750 

712 GOSUB 520 

714 GOSUB 750 

716 GOSUB 620 

720 GOTO 150 

780 PRINT 

752 PRINT “< NEW LINE > PARA TROCAR TELA” 


IM INPUT 2 

756 CLS 

758 RETURN 

800 CLS 

802 STOP 

805 SAVE | “FINANCEIRA” 
810 RUN 





Análise Patrimonial 
na 
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Para a “Análise Patrimonial”, utilizamos este programa que estuda 
o patrimônio sob diversos aspectos, que podem ser observados 
pelos seguintes índices: 

1 - IMOBILIZACAÃO DO PATRIMONIO LIQUIDO, que é um 
índice obtido através da divisão do Imobilizado Real (Ativo 
Permanente) pelo Patrimônio Líquido. 


O mesmo é calculado através da seguinte fórmula: 


2x6 
2. 


2-EVOLUCAO DO PATRIMONIO LIQUIDO, que é o produto da 
divisão do Patrimônio Líquido Real pelo Capital Nominal, através 
da fórmula: 


23 x gy 


2.31 

3-PATRIMONIO LIQUIDO NO ATIVO, que é analisado através de 
dois índices, sendo o primeiro o produto da divisão do Patrimônio 
Líquido pelo Imobilizado Rea! (Ativo Permanente), o que é 
calculado pela fórmula: 


23 x mg 
1.3 


e o segundo índice é obtido através de Capital Líquido de 
Operação (Ativo Circulante mais Realizável a Longo Prazo menos 
Passivo Circulante menos Exigível a Longo Prazo) dividido pelo 
Patrimônio Líquido, calculada através da fórmula: 


(01 +1D-01+22) 40. & 


2.3 


4 - ENDIVIDAMENTO, que é calculado pela divisão do Passivo 
Real (Passivo Circulante mais Exigível a Longo Prazo) pelo Ativo 


Real, através da fórmula a seguir que se baseia na classificação 
dada às contas no plano de contas-padrão: 


21 + 22 Gy 


1 
5 - GARANTIA DO CAPITAL ALHEIO, que é o índice obtido pela 
divisão do Patrimônio Líquido pelo Passivo Real (Passivo 
Circulante mais Exigível a Longo Prazo), calculado através da 
fórmula: | 


23 
21 + 2.2 


Para o terceiro e o último índices, o programa prevê a exibição de 
uma linha com comentários sobre a classificação do índice 
calculado com um padrão acadêmico. 


X 100 


Todos os códigos utilizados nas fórmulas foram extraídos do Plano 
de Contas Padronizado que faz parte integrante deste trabalho. 


Operação do Programa 
EE 


A primeira tela apresentada pelo programa (tela 1) é a que solicita, 
um a um, os dados necessários para calcular os índices. 

Esta rotina só é interrompida quando o último dado tiver sido 
informado. 

Imediatamente após a digitação do último dado é exibida a tela 2, 
que é o menu do programa, listando todos os índices que o 
programa calcula. Para calcular qualquer um dos índices basta 
digitar o número que precede o índice desejado. 

Digitando 1, obtém-se a rotina (DIMOBILIZAÇÃO PATRIM. LIQ. 
que, através da tela 3, produz o demonstrativo deste índice. 

A rotina (2)EVOLUCAO PATRIM. LIQUIDO exibe a tela 4, que 
demonstra todos os dados envolvidos no cálculo do índice. 


“Atela 5, produzida pela rotina (3)PATRIM. LIQ. NO ATIVO, 
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calcula dois índices, produzindo um demonstrativo para cada um, 
e exibe uma mensagem de análise relativa ao primeiro índice 
calculado. 

A rotina (4)ENDIVIDAMENTO mostra a tela 6 onde é 
demonstrado o índice de endividamento da empresa. 

A rotina (5)GARANTIA CAPITAL ALHEIO demonstra, através da 
tela 7, o índice, mostrando uma mensagem de avaliação técnica . 
do mesmo em confronto com padrões. 

A opção pela rotina (60)TODOS permite a visualização de todos os 
índices calculáveis pelo programa, mostrando sucessivamente as 
telas 3 a 7. Para trocar de tela basta pressionar a tecla ENTER ou 
NEW LINE. 

A última opção oferecida — (7)NENHUM — interrompe a 
execução do programa. 

Para se fazer-cópia do programa em fita, podem ser utilizadas as 
duas últimas linhas do programa. 


INFORME OS DADOS: 
ATIVO PERMANENTE 


HOBOBODO . 
PATRIMONIO LIQUIDO 
OOGODNDA 
CAPITAL SOCIAL 
DOOCODDO 
ATIVO CIRCULANTE 
DODODODO 
REAL. LONGO PRAZO 
PODOBODA 
PASSIVO CIRCULANTE 
DOBOADA 
EXIG. LONGO PRAZO 
OODDODD 

- TOTAL DO ATIVO 
DODODODO 





VOCE QUER? 
(NIMOBILIZADO PATRIM. LIO. 
(2)EVOLUCAO PATRIM. LIQUIDO 
(3)PATRIM. LIO. NO ATIVO 
(ENDIVIDAMENTO 
(S)GARANTIA CAPITAL ALHEIO 
(B)TODOS 

“(7)NENHUM 


IMOBILIZACAO PATRIM. LIQUIDO 
IMOBILIZADO REAL EM RELACAO AO PAFRIMONIO LIQUIDO REAL 


ATIVO PERMANENTE DOBDDODO 
(/JPATRIMONIO LIQUIDO DODABADO 


| (=) IMOBILIZACAO PATRIM. LIQUIDO = Dota iu 
< ENTER > PARA TROCAR TELA 





EVOLUCAO PATRIM. LIQUIDO 
PATRIMONIO LIQUIDO REAL/CAPITAL NOMINAL 


PATRIMÔNIO LIQUIDO 
(/)CAPITAL SOCIAL 


(=) VALOR REAL DAS ACOES = 


< ENTER > PARA TROCAR TELA 


PATRIM. LIQ. NO ATIVO 
PATRIMONIO LIQUIDO/IMOBIL. REAL 


PATRIMONIO LIQUIDO 
(/JATIVO PERMANENTE 


(=)IMOBILIZACÕES = 
ESTE INDICE INDICA: 
X mensagem ER é 


CAPITAL LIQ. OPERACOES/PATRIMONIO LIQUIDO REAL 


ATIVO CIRCULANTE 

(+)REAL. LONGO PRAZO 

(—)PASSIVO CIRCULANTE 

(— JEXIG. LONGO PRAZO 

(/)PATRIMONIO LIQUIDO 

(=)PATRIMONIO LIQUIDO NO GIRO TOTAL = 


“< ENTER > PARA TROCAR TELA 





ENDIVIDAMENTO 
PASSIVO REAL/ATIVO REAL 


PASSIVO CIRCULANTE 
(+)EXIG. LONGO PRAZO 
(TOTAL DO ATIVO 


(=)ENDIVIDAMENTO = 
< ENTER > PARA TROCAR TELA 


GARANTIA CAPITAL ALHEIO 
PATRIMONIO LIQUIDO/PASSIVO REAL 


PATRIMONIO LIQUIDO 
(/)PASSIVO CIRCULANTE 
(+)EXIG. LONGO PRAZO 


=)GARANTIA CAPITAL ALHEIO = 
ESTE INDICE INDICA: 


X- mensagem X 
< ENTER > PARA TROCAR TELA 


HaBBLADO 
HODODODA 
BOBADADA 


coBaHaDaO 


BUBOADAS 
COVODODA 
UBODADDA 


CLODOUDA 











2 REM 
4 REM: 
6 LET 
8 LET 

10 LET 

12 LET 

14 LET 

16 LET 

18 LET 

20 LET 

22 LET 

24 LET 

26 LET 

28 LET 

30 LET 

31 CLS 

32 PRINT 

34 PRINT 

36 PRINT 

38 INPUT 

40 PRINT 

42 PRINT 

44 INPUT 

46 PRINT 

48 PRINT 

50 INPUT 

52 PRINT 

54 PRINT 

56 INPUT 

58 PRINT 

60 PRINT 

62 INPUT 

64 PRINT 

66 PRINT 

68 INPUT 

70 PRINT 


q 


ANALISE PATRIMONIAL 





AUTOR: LOURIVAL KARSTEN 


AS = 
B$ = 
C$ = 
D$ = 
ES = 
F$ = 
G%$ = 


H$ = 
15 = “IMOBILIZACAO PATRIM. LIO.” 
J$ = “EVOLJCAO PATRIM. LIQUIDO” 


K$ = 


“ATIVO PERMANENTE" 
“PATRIMÔNIO LIQUIDO” 
“CAPITAL SOCIAL* 
“ATIVO CIRCULANTE” 
“REAL. LONGO PRAZO” 
“PASSIVO CIRCULANTE” 
“EXIG. LONGO PRAZO” 
“TOTAL DO ATIVO” 


“PATRIM. LIO. NO ATIVO” 


L$ = “ENDIVIDAMENTO” 


M5 = “GARANTIA CAPITAL ALHEIO” 


“INFORME OS DADOS:” 


AS 
A 
A 
B5 
B 
B 
Cs 
C 
C 
D$ 
D 
D 
ES 
E 
E 
FS 
F 

F 





72 PRINT 
74 INPUT 
76 PRINT 
78 PRINT 
80 INPUT 
82 PRINT 
84 PAUSE 
86 CLS 
88 PRINT 
90 PRINT 
92 PRINT 
94 PRINT 
96 PRINT 
98 PRINT 
100 PRINT 
102 PRINT 
104 PRINT 
106 PRINT 
108 PRINT 
110 PRINT 
112 PRINT 
114 PRINT 
116 PRINT 
118 INPUT 
120 IF 
122 CLS 
124 GOTO 
150 PRINT 
152 PRINT 
154 INPUT 
156 GOTO 
200 GOSUB 
202 GOTO 
220 PRINT 
222 PRINT 
224 PRINT 
226 PRINT 
228 PRINT 
230 PRINT 


“VOCE QUER?” 


aus I$ 

“2; J$ 
“30; K& 
“Jr; LS 
“(B); M$ 


“(6)TODOS” 


“(DNENHUM” 


Z 
Z>70RZ = O THEN GOTO 118 


(Z* 100) + 100 


“ < NEW LINE > PARA TROCAR TELA" 


2 


86 
220 
150 
E) 


“IMOBILIZADO REAL EM RELACAO AO”; B$; “ REAL" 


AS: AT 5,23; À 
“(/)": B3: AT 7,23; B 
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232 LET 
233 PRINT 
234 PRINT 


236 RETURN 





K = (A/B) * 100 


= a IS: O) = Ee K 


300 GOSUB 329 


302 GOTO 
320 PRINT 
322 PRINT 
324 PRINT 
326 PRINT 
328 PRINT 
330 PRINT 
332 PRINT 
334 LET 

336 PRINT 


338 RETURN 


150 
Jê 


B$; “REAL/CAPITAL NOMINAL" 


B$; AT 5,23; B 
“(/)"; C8; AT 6,23; € 


K = (B/C) * 100 
“(=) VALOR REAL DAS ACOES = “, K 


400 GOSUB 410 


402 GOTO 
410 PRINT 
412 PRINT 
414 PRINT 
416 PRINT 


418 PRINT 


420 PRINT 
421 PRINT 
422 LET 
424 PRINT 
426 PRINT 
428 IF 

430 IF 

432 IF 

434 IF 

436 IF 

438 IF 

440 IF 


442 IF 


444 IF 


159 
K$ 


B5; “/IMOBIL. REAL" 


B$; AT 4,23; B 
“(/Y'; AS; AT 5,23; À 


K = (B/A) * 100 

“(=) IMOBILIZACÕES = “; K 

“ESTE INDICE INDICA:” 

K < 40 THEN PRINT “GRAVE EXCESSO” 

K < 70 ANDK > = 40 THEN PRINT“GRANDE EXCESSO” 
K < 99 ANDK > = 70 THEN PRINT “REGULAR EXCESSO” 
K < 100 AND K > = 90 THEN PRINT “LEVE EXCESSO” 
K < 110 ANDK > = 100 THEN PRINT “IMOB. PESADAS” 
K < 150 ANDK > = 110 THEN PRINT “IMOB. NORMAIS” 
K < 309 ANDK > = 150 THEN PRINT “IMOB. 
MODERADAS” 

K < 1000 ANDK > = 390 THEN PRINT “IMOB. 


“REDUZIDAS” 


K > = 1000 THEN PRINT “IMOB. INSIGNIFICANTES” 





446 PRINT 
448 PRINT 
450 PRINT 
452 PRINT 
454 PRINT 
456 PRINT 
458 PRINT 
460 PRINT 
462 LET 

464 PRINT 


466 RETURN 


500 GOSUB 
502 GOTO 
520 PRINT 
522 PRINT 
524 PRINT 
b26 PRINT 
528 PRINT 
530 PRINT 
532 PRINT 
534 LET 
535 PRINT 
536 PRINT 


538 RETURN 


600 GOSUB 
602 GOTO 
620 PRINT 
622 PRINT 
624 PRINT 
626 PRINT 
628 PRINT 
630 PRINT 
632 PRINT 
634 LET 
635 PRINT 
636 PRINT 
637 PRINT 
638 PRINT 
639 PRINT 


“CAPITAL LIO. OPERACOES/ “- B$: “ REAL 
D$; AT 13,23; D 

“(+)”; ES: AT 14,23; E 

“(-)": FS: AT 15,23; F 

“(yr G8; AT 16,23: G 

“(/)": B$: AT 17,23; B 

K = ((D+E-F-G)/B)* 100 

“(=)”; B$: “NO GIRO TOTAL ="; K 


520 
150 
L3 


“PASSIVO REAL/ATIVO REAL” 


FS; AT 4,23; F 

“(+)”; 68; AT 5,23; 6 
“(/)"; H5; AT 6,23; H 
K = ((F + G)/H)* 100 


(=) LS A a K 


620 
159 
M$ 


B$;“/PASSIVO REAL" 


B$: AT 4,23; B 

“(/Y": FS: AT 5,23; F 
“+)"; 63; AT 6,23; G 
K = (B/MF+G)) * 100 


E 6 ud M$; — dê K 


“ESTE INDICE INDICA:” 





640 IF K < 40 THEN PRINT “GRAVE EXCESSO” 

642 IF K< 70 AND K >= 49THEN PRINT “GRANDE EXCESSO” 

644 IF K < 99 ANDK > = 70 THEN PRINT “REGULAR EXCESSO” 

646 IF E < 100 ANDK > = 99 THEN PRINT “LEVE EXCESSO”. 

648 IF K < 159 ANDK > =100THEN PRINT “PARTIC. NORMAL” 

650 IF K < 300 AND K > = 159 THEN PRINT “PARTIC. 
MODERADA" 

652 IF K > = 300 THEN PRINT “PARTIC. REDUZIDA” 

654 RETURN 

700 GOSUB 220 

702 GOSUB 7590 

704 CLS ; 

706 GOSUB 320 

708 GOSUB 750 

0 CLS 

712 GOSUB 410 

714 GOSUB 750 

716 CLS 

718 GOSUB 520 

720 GOSUB 750 

722 CLS 

724 GOSUB 620 

726 GOSUB 750 

128 CLS 

730 GOTO 86 

750 PRINT 

752 PRINT *< ENTER > PARA TROCAR TELA" 

754 INPUT 25 

756 RETURN 

800 CLS 

802 STOP 

805 SAVE “PATRIMONIAL” 

810 RUN 





“Análise Econômica 


O terceiro programa da série, destinado à Análise Econômica, 
exige a incorporação de mais informações, pois vamos analisar a 
evolução de um balanço para outro. Estes dois balanços, que 
chamaremos de anterior (ou ANT) e atual (ou ATU), podem ser de 
qualquer época, ressalvando-se apenas que o índice refere-se ao 
período compreendido entre os dois. 
Note-se que em todas as fórmulas, quando aparece 2(dois) como 
divisor, o mesmo não é código de Total do Passivo e sim o 
número dois. . | 
“Os índices calculáveis através deste programa são: 
1- RENDIMENTO ATUAL, que é uma análise do Lucro Operacional 
(ou prejuízo operacional) em relação ao Patrimônio Líquido 
Médio. Caso haja prejuízo, não se deve esquecer de introduzir o 
sinal de menos (-) junto com o valor. O índice é calculado pela 
fórmula: 


3.4 


2.3-ANT + 2.3-ATU 
2 


X 100 


2-RENDIMENTO DEFLACIONADOR, que analisa a relação entre 
Lucro (ou prejuízo) Operacional e o Capital de Giro Médio a 
Curto Prazo (créditos a curto prazo).É calculado através da 
fórmula: 


3.4 


(LI-ANT - 21-2ANTD + (11-ATU - 2.1-ATU) 
2 


3-RENDIMENTO REAL, que analisa a relação entre o Lucro (ou 
prejuízo) Operacional e o Capital de Giro Médio (Média do Total 
do Passivo). Este índice é calculado pela fórmula: 


X 106 





3.4 
2-ANT + 2-ATU 


x 100 


2 





Operação do Programa 
na 


A primeira tela apresentada pelo programa é a tela 1, que vai 
solicitando um a um todos os dados necessários para os cálculos, 
interrompendo a rotina quando for digitado o último dado 
necessário. 


A tela 2 é o menu do programa, oferecendo cinco opções de 
rotinas; permite a escolha de qualquer das rotinas, digitando-se o 
número que precede a mesma na tela. 


A digitação do número 1 acessará a rotina (RENDIMENTO 
ATUAL, que exibe a tela 3 onde se pode observar o demonstrativo 
de cálculo do mesmo. 


A rotina (2)RENDIMENTO DEFLACIONADOR demonstra na tela 4 
o índice, listando todos os valores envolvidos. 


A rotina (3)RENDIMENTO REAL utiliza a tela 5 para listar os 
valores envolvidos no cálculo do índice. 


A opção 4 permite o acesso à rotina (4)TODOS que demonstrará 
todos os índices através das telas 3 a 5, na sequência. Para passar de 
uma tela para outra, basta presssionar a tecla ENTER ou NEW LINE. 


A última opção — rotina (5) NENHUM — provoca a interrupção 
do programa. Para produzir cópias do programa em fita, poderão 
ser utilizadas as duas últimas instruções do mesmo. 
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INFORME OS DADOS: 


LUCRO OPERACIONAL 
gOG0ONOA 

PATRIMONIO LIQUIDO-ANT 
PROBADDO 

PATRIMONIO LIQUIDO-ATU 
GOVANADO 

ATIVO CIRCUL:ANT 
DODBANDO 

ATIVO CIRCUL-ATU 
DODADÇA 

PASSIVO CIRCUL:ANT 
GOGAGADO 

PASSIVO CIRCUL:ATU 


BOBO 
PASSIVO TOTALANT 
DOMLADA 
PASSIVO TOTALATU 
BOBAGCTO 


VOCE QUER? 

(NRENDIMENTO ATUAL 
(2)RENDIMENTO DEFLACIONADOR 
(3)RENDIMENTO REAL 

(4)TODOS 

(5) NENHUM 
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RENDIMENTO ATUAL 


LUCRO OPERACIONAL EM RELACAO AO PATRIMÔNIO LIQUIDO MEDIO 


LUCRO OPERACIONAL ODDDADA 
(/)PATRIM. LIQUIDO-ANT BOPPADDO 
(+)PATRIM. LIQUIDO-ATU HODODODA 


(=)JRENDIMENTO ATUAL = HOBDADAA 


< ENTER > PARA TROCAR TELA 


RENDIM. DEFLACIONADOR 


LUCRO OPERACIONAL/CAPITAL EM GIRO MEDIO A CURTO PRAZO 

LUCRO OPERACIONAL OBODNDO 
(NATIVO CIRCUL:ANT O0BDADDO 
(-JPASSIVO CIRCUL-ANT PDODONDA 
(+JATIVO CIRCUL:ATU BOBODODA 
(-JPASSIVO CIRCUL:-ATU OOPUDODO 


(=)RENDIM. DEFLACIONADOR OPODODDA 
< ENTER > PARA TROCAR TELA 





RENDIMENTO REAL 
LUCRO CPERACIONAL/CAPITAL EM GIRO MEDIO 


LUCRO OPERACIONAL 
(/)PASSIVO TOTALANT 


(+)PASSIVO TOTALATU 
(=)RENDIMENTO REAL = 
< ENTER > PARA TROCAR TELA 


q 


2 REM ANALISE ECONOMICA 

4 REM AUTOR: LOURIVAL KARSTEN 
6 LET Ag= “LUCRO OPERACIONAL 
8 LET B$= “PATRIM. LIQUIDO-ANT” 
10 LET C$= “PATRIM. LIQUIDO-ATU” 
12 LET D$= “ATIVO CIRCUL.-ANT” 
14 LET E$= “ATIVO CIRCUL.-ATU” 

16 LET F$= “PASSIVO CIRCUL.-ANT” 
18 LET G$= “PASSIVO CIRCUL.-ATU” 


20 LET H$= “PASSIVO TOTAL-ANT”. 

22 LET I$= “PASSIVO TOTAL-ATU” 

24 LET J$= “RENDIMENTO ATUAL 

26 LET K$= “RENDIM. DEFLACIONADOR” 
28 LET L$= “RENDIMENTO REAL' 

30 CLS 

31 PRINT “INFORME OS DADOS:” 


BODOGADO 
DOABADOO 
BDBBONDO 


DABODODA 





32 PRINT 

34 PRINT 

36 INPUT 

38 PRINT 

40 PRINT 

42 INPUT 

44 PRINT 

46 PRINT 

48 INPUT 

50 PRINT 

52 PRINT 

54 INPUT 

56 PRINT 

58 PRINT 

60 INPUT 

62 PRINT 

64 PRINT 

66 INPUT 

68 PRINT 

70 PRINT 

72 INPUT 

74 PRINT 

76 PRINT 

78 INPUT 

80 PRINT 

82 PRINT 

84 INPUT 

86 PRINT 

88 PAUSE 

90 CLS 

92 PRINT “VOCE QUER?" 
94 PRINT 

96 PRINT “(1)"; JS 
98 PRINT 

100 PRINT “(2)”; K5 
102 PRINT 
104 PRINT “(3)”; LS 
106 PRINT 
108 PRINT “(4)TODOS” 





NO PRINT 
112 PRINT 
144 INPUT 
16 IF 

118 CLS 
120 GOTO 
150 PRINT 
152 PRINT 
154 INPUT 
156 GOTO 
200 GOSUB 
205 GOTO 
220 PRINT 
222 PRINT 
224 PRINT 
226 PRINT 
228 PRINT 
230 PRINT 
232 PRINT 
234 LET 
235 PRINT 
236 PRINT 


238 RETURN 


300 GOSUB 
302 GOTO 
320 PRINT 
322 PRINT 
324 PRINT 
326 PRINT 
328 PRINT 
330 PRINT 
332 PRINT. 
334 PRINT 
“336 PRINT 
338 LET 
339 PRINT 
340 PRINT 


342 RETURN 


“(6)NENHUM” 
Z 
Z > 5ORZ = (Q6THEN GOTO 114 


(Z * 100) + 100 


“ < ENTER > PARA TROCAR TELA” 
Zy 
90 
220 
159 
Jy 


AS: “EM RELACAO AO PATRIMONIO LIQUIDO MEDIO” 


AS: AT 5,23; À 

“(/)": BS: AT 6,23;B 
+)"; 05:47 7,23; €. 

K = (A *100/(4B + C)/2)) 


=)"; J$: o— e K 
320 


159 
K$ 


AS; “/CAPITAL EM GIRO MEDIO A CURTO PRAZO” 


AS; AT 5,23; A 

“(/Y'; D$; AT 6,23; D 

“(); FS: AT 7,23; F 

“+ y"; ES: AT 8,23: E 

“(-)":-G8; AT 9,23; G 

K = (A * 100)/((D-F) + (E-G)/2) 


a és K$: ts — o K 


400 GOSUB 420 
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402 GOTO 
420 PRINT 
422 PRINT 
424 PRINT 
426 PRINT 
428 PRINT 
430 PRINT 
432 PRINT 
434 LET 

435 PRINT 
436 PRINT 


438 RETURN 


500 GOSUB 
502 GOSUB 
504 CLS 
506 GOSUB 
508 GOSUB 
510 CLS 
512 GOSUB 
b14 GOSUB 
h16 CLS 
518 GOTO 
550 PRINT 
552 PRINT 
55 INPUT 
556 CLS 


558 RETURN 


600 CLS 
605 STOP 
610 SAVE 
615 RUN 


150 
L$ 


AS;"/CAPITAL EM GIRO MEDIO” 


AS; AT 5,23; À 
“(/)"; H$; AT 6,23; H 
“40; 14; AT 7,23;] 


K = (A/U(H + 1)/2))* 100 


=)": L$; .s = EE K 


228 


550 


326 
550 


420 
550 


90 


“<< NEW LINE > PARA TROCAR TELA" 
Z» 


“ECONOMICA” 


Dado Principal Achar Montante 
q 


Este pequeno programa financeiro, que roda em 1 kb, foi escrito 
em BASIC Sinclair e serve para calcular o principal, sabendo-se o 


montante, a taxa de juros e o tempo. 


A fórmula é a seguinte: 


S=P*(1+ DN 
onde: 

S = Montante 
P = Principal 


| = Taxa de juros em percentual 
N = Tempo em meses 


A tela gerada pelo mesmo é a que se encontra anexo, 
dispensando maiores comentários. 


Para fazer cópia do programa em fita, podem ser utilizadas as 


duas últimas linhas do mesmo. 


DADO PRINCIPAL 
ACHAR MONTANTE 


PRINCIPAL? 


TAXA MENSAL? 

TEMPO (MESES)? 
MONTANTE EH 

OUTRO CALCULO? (S/N) 


HOBADADA 


COBODHDA 
G0DCANDA 
DONDODDO 
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5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 

70 LET 
75 PRINT 

-80 PRINT 
90 PRINT 
95 INPUT 

100 iF 

105 STOP 

NO SAVE 

115 RUN 





| 
al 





FIN |] 


AUTOR: LOURIVAL KARSTEN 


“DADO PRINCIPAL” 
“ACHAR MONTANTE” 
AT 3,0; “PRINCIPAL?” 


P 
AT 3,23; P 


AT 5,0; “TAXA MENSAL?” 


AT 5,28; | 


AT 7,0; “TEMPO (MESES)?" 


N 
AT 7,23; N 
| = 1/100 


X = ((1 + D**N)*P 
AT 9,0; “MONTANTE EH” 


AT 9,23; X- 


AT 11,0; “OUTRO CALCULO? (S/N)” 


X8 


X& = “S” THEN GOTO 20 


“FINT” 





na 


Este pequeno programa financeiro, que roda em 1 kb, foi escrito 
em BASIC Sinclair e serve para calcular o montante, sabendo-se 
o principal, a taxa de juros e o tempo. 


A fórmula é a seguinte: 


1 
=St————— 
P=5" "44 nN 
onde: 
P = Principal 


S = Montante 


| = Taxa de juros em percentual 


N = Tempo em meses 


A tela gerada pelo mesmo é a que se encontra abaixo, 
dispensando maiores comentários. 


ado Montante Achar Principal 


Para gerar cópia do programa em fita, podem ser utilizadas as 


duas últimas linhas do mesmo. 


DADO MONTANTE 
ACHAR PRINCIPAL 


MONTANTE? 


TAXA MENSAL? 

TEMPO (MESES)? 
PRINCIPAL EH 

OUTRO CALCULO? (S/N) 








BOBOUDON 
O000OODO 
COBOGADA 
DODDADOM 
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na 


104 


5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 INPUT 
32 PRINT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 

105 STOP 
110 SAVE 
115 RUN 


FIN II 
AUTOR: LOURIVAL KARSTEN 


“DADO MONTANTE” 
“ACHAR PRINCIPAL* 

AT 3,0; “MONTANTE?” 

Ss 

AT 5,0; “TAXA MENSAL?” 

| 

AT3,23: S 

AT 5,23; | 

AT 7,0; “TEMPO (MESES)?” 
N 

AT 7,23; N 

| = 1/100 

xXx = (1401 + D**N)*S 

AT 9,0; “PRINCIPAL EH” 

AT 9,23; X 

AT 11,0: “OUTRO CALCULO? (S/N) 
Xx8 

X8 = “S” THEN GOTO 20 


“FIN TIO 








Dado Montante Achar Prestação 
q 


O presente programa financeiro, suficientemente pequeno para 
rodar em 1 kb, escrito para TK, NE ou CP serve para calcular o 
valor de uma prestação, sabendo-se o montante do débito, a taxa 
de juros e o número de prestações. 


A fórmula é a seguinte: 
RE Ni 


onde: 

R = Prestação 

S = Montante 

| = Taxa de juros em percentual 

N = Tempo (número de prestações) 


Na tela em anexo, gerada pelo mesmo, poderau »c1 visualizados 
mais detalhes. 


Para preparar cópia em fita, podem ser utilizadas as duas últimas 
linhas do programa. 


DADO MONTANTE 
ACHAR PRESTACAO 


MONTANTE? OOBDADDO 
TAXA MENSAL? HODODADA 
QUANTAS PRESTACÕES? ODOBADA 
PRESTACAO EH DOBBODDA 
OUTRO CALCULO? (S/N) 


105 


na 


106 


5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 

“75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 

105 STOP 

NO SAVE 

115 RUN 


FIN IH 
AUTOR: LOURIVAL KARSTEN 


“DADO MONTANTE” 

“ACHAR PRESTACAO” 

AT 3,0; “MONTANTE?” 

Ss 

AT3,23;S 

AT 5,0; “TAXA MENSAL?” 

| 

AT 5,23; | | 

AT 7,0; “QUANTAS PRESTACOES?” 
N 

AT 7,23; N 

H= 1/100 

X = UM + DEN) -1)*S 

AT 9,0; “PRESTACAO EH” 

AT 9,23; X 

AT 11,0: “OUTRO CALCULO? (S/N)” 
x& 

X% = “S” THEN GOTO 20 


“FIN HI” 


Dado Principal Achar Prestação 


O presente programa financeiro, escrito para rodat em 1 kb em 
micro com lógica Sinclair, serve para calcular o valor de uma 
prestação, sabendo-se o valor do principal, a taxa de juros em 
percentual e o número de prestações. 


A fórmula é a seguinte: 


(T+ DN 
(1+ DN] 


R=P* 


onde: 

R = Prestação 

P = Principal 

| = Taxa de juros em percentual 

N = Número de prestações 

A tela gerada pelo programa é a que se encontra abaixo, podendo 
ser consultada para maiores detalhes. 


Para preparar cópia do programa em fita, podem ser utilizadas as 
duas últimas linhas do mesmo, escritas com tal finalidade. 


DADO PRINCIPAL 
ACHAR PRESTACAO 


PRINCIPAL? BUNDA 
TAXA MENSAL? OBOPDODO 
QUANTAS PRESTAÇÕES? OADADA 


- PRESTACAO EH HABADADA 
OUTRO CALCULO? (S/N) 
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5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 


65 PRINT. 


67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 
100 IF 
105 STOP 
nO SAVE 
115 RUN 





FIN IV 
AUTOR: LOURIVAL KARSTEN 


“DADO PRINCIPAL” 

“ACHAR PRESTACAO” 

AT 3,0; “PRINCIPAL?” 

P 

AT 3,23; P 

AT 5,0; “TAXA MENSAL?” 

| 

AT 5,23; | 

AT 7,0; “QUANTAS PRESTACOES?” 
N 

AT 7,23; N 

| = 1/100 

X = (1 + DEND/CO + DHEN)HIP 
AT 9,0; “PRESTACAO EH” 

AT 9,23; X 

AT 11,0; “OUTRO CALCULO? (S/N)” 
Xx8 

X5 = “S” THEN GOTO 20 


“FIN IVO 


Dada Prestação Achar Montante ; 


O presente pequeno programa financeiro, que roda em 1 kb, 
serve para calcuiar o montante de uma dívida, sabendo-se o valor 
da prestação, a taxa de juros aplicada e a quantidade de 
prestações. 

A fórmula é a seguinte: 


1 pN. 
q +o 
onde: 
S = Montante 
R = Prestação 
| = Taxa de juros em percentual 
N = Número de prestações 
A tela gerada pelo programa, que pode ser encontrada logo 
abaixo, fornece alguns detalhes adicionais. 
Para produzir cópia do programa em fita, podem ser utilizadas as 
duas últimas linhas do mesmo, escritas para tal fim. 


DADA PRESTACAO 

ACHAR MONTANTE 

PRESTACAO? 00BADADA 
TAXA MENSAL? OHODODA 
QUANTAS PRESTACOES? DOGONNDA 
MONTANTE EH QOBDANDA 
OUTRO CALCULO? (S/N) 
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a : 


Listagem 


no 


5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 

105 STOP 
110 SAVE 
115 RUN 


FIN V 
AUTOR: LOURIVAL KARSTEN 


“DADA PRESTACAO” 

“ACHAR MONTANTE” 

AT 3,0; “PRESTACAO?” 

R 

AT 3,23; R 

AT 5,0; “TAXA MENSAL?” 

| 

AT 5,23; ] 

AT 7,0; “QUANTAS PRESTACOES?” 
N 

AT 7,23: N 

| = 1/100 

X = (1 + DENVER 

AT 9,0; “MONTANTE EH” 

AT 9,23; X 

AT 11,0; “OUTRO CALCULO? (S/N) 
X8 

X5 = “S” THEN GOTO 29 


“FIN V” 





Dada Prestação Achar Principal . 


O presente programa, suficientemente pequeno para rodar em 1 


kb, serve para calcular o principal, sabendo-se o valor da 


prestação, a taxa de juros e o número de prestações. 
A fórmula é a seguinte: 


é Alt+ DN -1 
PE AN 
onde: 
P = Principal 
R = Prestação 
| = Taxa de juros em percentual 
N = Número de prestações 


A tela gerada pelo programa (vide abaixo) fornece algumas 


informações adicionais. 


Para preparar cópia do programa em fita podem ser utilizadas as 


duas últimas linhas do programa, escritas com tal finalidade. 


DADA PRESTACAO 
ACHAR PRINCIPAL 


PRESTACAO? 

TAXA MENSAL? 
QUANTAS PRESTACOES? 
PRINCIPAL EH 

OUTRO CALCULO? (S/N) 


DHBODODO 
DOADA 
BOBDADDA 
BUBOBADO 





m 








Listagem 


5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRNIT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 

105 STOP 

110 SAVE 

115 RUN 





a 





FIN VI] 


AUTOR: LOURIVAL KARSTEN 


“DADA PRESTACAO” 
“ACHAR PRINCIPAL 
AT 3,0; “PRESTACAO?” 


R 
AT 3,23; R 


AT 5,0; “TAXA MENSAL?” 


| 
AT 5,23; | 


AT 7,0; “QUANTAS PRESTACOES?” 


N 
AT 7,23; N 
| = 1/100 


X = (OA D*ENID AIC + DFENDER 
AT 9,0; “PRINCIPAL EH” 


AT 9,23; X 


AT 11,0; “OUTRO CALCULO? (S/N)” 


X8 


X3 = “S” THEN GOTO 20 


“FIN VI 





Financas VI 


Utilizando-se expansão, podemos carregar programas bem mais 
extensos, o que permite que programas como este possam ser 
utilizados com grandes vantagens para O usuário. 


O mesmo enfeixa, em um só programa, as rotinas dos programas 
FIN 1, FIN II, FIN HI, FIN IV e FIN VI, apresentados nas páginas 
anteriores. 

O programa exibe uma tela (vide abaixo), que apresenta o menu 
do mesmo. Maiores explicações sobre cada rotina podem ser 
encontradas na apresentação dos programas citados. 


Para produzir cópia do programa em fita podem ser utilizados os 
comandos armazenados nas últimas duas linhas do mesmo. 


OPCOES 

1-DADO PRINCIPAL ACHAR PRINCIPAL 
2-DADO MONTANTE ACHAR PRINCIPAL 
3-DADO MONTANTE ACHAR PRESTAÇÃO 
4-DADO PRINCIPAL ACHAR PRESTACAO 
5-DADA PRESTACAO ACHAR PRINCIPAL 
O-FIM 





4 





al 


5 REM 
10 REM 
12 LET 
14 LET 
16 LET 
18 LET 
20 LET 
22 LET 
24 LET 
26 LET 
28 LET 
30 LET 
32 LET 
34 LET 
36 LET 
38 LET 
40 LET 
42 LET 
50 CLS 
60 PRINT 
62 PRINT 
64 PRINT 
66 PRINT 
68 PRINT 
70 PRINT 
72 PRINT 
74 PRINT 
76 PRINT 
78 PRINT 
80 PRINT 
82 PRINT 
84 PRINT 
92 INPUT 
94 IF 
96 IF 
97 CLS 






FIN Vil 

AUTOR: LOURIVAL KARSTEN 

AS = “DADO PRINCIPAL ACHAR MONTANTE” 
B5 = “DADO MONTANTE ACHAR PRINCIPAL" 
C5 = “DADO MONTANTE ACHAR PRESTACAO” 
D$ = “DADO PRINCIPAL ACHAR PRESTACAO” 
ES = “DADA PRESTACAO ACHAR PRINCIPAL” 
F$ = “PRINCIPAL?” 

G5 = “TAXA MENSAL?” 

H$ = “TEMPO (MESES)?” 

18 = “MONTANTE EH” 

J$ = “OUTRO CALCULO? (S/N)” 

K5 = “MONTANTE?” 

L8 = “PRINCIPAL EH” 

M$ = “N. PRESTACOES?” 

N$ = “PRESTACAO EH” 

05 = “PRESTACAO?” 

Y=1 


“OPCOES” 
“AS 
“2. B5 
“3-"":C& 
“ADS 
“B--ES 
“gr "FIM” 
Z 


Z > 5 THEN GOTO 92 
Z = Q THEN GOTO 780 





98 GOTO 
100 PRINT 
105 GOSUB 
110 GOSUB 
115 GOSUB 
120 LET 
125 PRINT 
130 GOTO 
200 PRINT 
205 GOSUB 
210 GOSUB 
215 GOSUB 
220 LET 
225 PRINT 
230 GOTO 
300 PRINT 
305 GOSUB 
310 GOSUB 
315 GOSUB 
320 LET 
325 PRINT 
330 GOTO 
400 PRINT 
405 GOSUB 
410 GOSUB 
415 GOSUB 
420 LET 
425 PRINT 
430 GOTO 
500 PRINT 
505 GOSUB 
510 GOSUB 
515 GOSUB 
520 LET 
525 PRINT 
530 GOTO 
600 REM 
605 PRINT 
610 INPUT 








Z* 100 
AS 
605 
625 
645 
X=(Y + DN)*P 

AT 9,5; 18; X 

765 

B$ 

665 

625 

645 

X = (WYy + NENDES 
AT 9,5: LS: X 

765 

Cs 

665 

625 

685 

X = 0MUY +IPEN)NDES 
AT 9,5; N$; X 


X = (((Y + DENDICOY + DEN) NY) *P 
AT 9,5; N$; X 

765 

ES 

105 

625 

685 | 

X = (UUY + ENNIO UY + DEN É R 
AT 9,5; L$; X 

765 

SUB-ROTINAS 

AT 3,3; Fê 

Pp 


N5 












615 PRINT AT3,20;P 
620 RETURN 

625 PRINT AT5,3; G$ 
630 INPUT | 

635 PRINT AT5,20;| 
637 LET 1=1/100 
640 RETURN 

645 PRINT  AT7,3; H$ 
650 INPUT N 

655 PRINT AT7,20;N 
660 RETURN 

665 PRINT  AT3,3;K5 
670 INPUT S 

675 PRINT AT3,20;S 
680 RETURN 

685 PRINT  AT7,3; M$ 
690 INPUT N. 

695 PRINT  AT7,20;N 
700 RETURN 

705 PRINT AT3,3; 05 
710 INPUT R 

715 PRINT  AT3,20;R 
720 RETURN 

765 PRINT AT 12,0; 58 
770 INPUT X5 


775 1F X5 = “S” THEN GOTO 20 


780 STOP 
785 SAVE “FIN VII” 
790 RUN 









Valor Presente 






Para calcular o valor presente de um fluxo de caixa de até 12 
períodos, pode-se utilizar o programa aqui apresentado, que 
calcula o Valor Presente através da fórmula: 


N 
VP = 35 SL 
(1+R) 


T=0 















onde: 
CT = Fluxo no período T, positivo quando há entradas e negativo 
quando há retiradas. 


R = Taxa de desconto para os períodos futuros do fluxo. 
N = Número de períodos (Máximo de 12). 


O programa apresenta a tela abaixo, solicitando os dados um a 
um, na medida em que o anterior for informado. 


Ao final da entrada de dados é calculado o Valor Presente do fluxo. 


Para copiar o programa para fita, podem ser utilizadas as duas 
últimas linhas do mesmo. 


VALOR PRESENTE 
NUM. PERIODOS APOS O ZERO 00 
FLUXO NO PERIODO 60 = MGOOO 








FLUXO NO PERIODO 12 = BO00000A 
TAXA DE DESCONTO = GOMMAACA 
VALOR PRESENTE = C0000LO 
CONTINUA? (S/N) 


17 
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q 


5 PRINT 
10 REM 
15 DIM 
17 PRINT 
20 PRINT 
25 INPUT 
26 IF 
27 PRINT 
30 LET 
35 FOR 
40 PRINT 
45 PRINT 
5O INPUT 
52 PRINT 
55 NEXT 
60 PRINT 
65 PRINT 
70 INPUT 
72 PRINT 
75 LET 
80 LET 
85 LET 
90 FOR 
95 LET 

100 LET 
105 NEXT 
110 LET 
115 PRINT 
120 PRINT 
125 PRINT 
130 INPUT 
133 CLS 
135 IF 

140 STOP 
145 SAVE 
150 RUN 






AT 0,9; “VALOR PRESENTE” 
AUTOR: LOURIVAL KARSTEN 
L(13) 


“NUM. PERIODOS APOS O ZERO”; 


N 
N > 12 THEN GOTO 25 


“FLUXO NO PERIODO”; 1-1; "; 


LtI) 

(1) 

l 

“TAXA DE DESCONTO = ”; 
D 

D 

D=.01*D 
V=0 

R=1 
|=1TON 
V=V+ L/R 
R=R*(1 + D) 


V = .001 * INT (1000 * V + .05) 


“VALOR PRESENTE = “;V 
“CONTINUA? (S/N) 

As 

AS = “S” THEN GOTO 5 


“PRESENTE” 


Dado k Achar | 


O presente programa calcula a taxa de juros de uma compra a 
prestação, através do método da tentativa e erro. 


Existem diversos métodos de calcular esta taxa, todos mais ou 
menos inexatos. O método que apresenta o menor erro para 
quaisquer taxas e prazos é o das tentativas. É, pela sua própria 
natureza, um método impraticável e, portanto, o seu melhor 
substituto são as tabelas financeiras que calculam para cada taxa 
possível e cada prazo um índice que nos permite grande 
facilidade de cálculo. 


Como nem sempre estão disponíveis tabelas para os cálculos, 
utiliza-se o micro com lógica Sinclair para fazer o difícil trabalho 
de cálculo de todas as possibilidades, até encontrar a correta. 


Desenvolvemos um programa que calcula estas possibilidades 
com intervalos de 01 por cento. Pode-se alterar o programa para 
calcular com menor grau de erro, mas isto aumentaria em muito 
o tempo de cálculo que com Q1 por cento fica em torno de meio 
minuto. 


Utiliza-se a seguinte fórmula: 


(1+)N.1 
d (14 |) 


onde: 

P = Principal a ser igualado. (Quando este for igual. ou maior do' 
que o principal menos a entrada, o cálculo termina.) 

R = Prestação mensal 

| = Taxa estimada. (Calculada de 81 por cento até a taxa correta, 
em intervalos de 61 por cento). 

N = Número de prestações. 


Na tela anexa podem-se observar mais detalhes. 


Para se produzir cópia do programa em fita podem ser utilizadas 
as duas últimas linhas do programa. 
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120 


na 











METODO: TENTATIVAS 


VALOR A VISTA? 
ENTRADA COBODADA 
CR$ PRESTACAO? DOOBODOM 
QUANTAS PRESTACOES? DOBODODO 
TAXA DE JUROS EH 00.0 


CONTINUA? (S/N) 


5 REM — PRESTACAO POR TENTATIVAS 
10 REM — AUTOR: LOURIVAL KARSTEN 
12 CLS 

15 PRINT “METODO: TENTATIVAS”! 

20 PRINT AT3,0; “VALOR A VISTA?” 

25 INPUT P 

30 PRINT AT3,23:P 

35 PRINT AT 5,0; “ENTRADA ?” 

40 INPUT E 

45 PRINT AT5,23; E 

50 PRINT AT 7,0; “CR$ PRESTACAO?” 
55 INPUT R 

60 PRINT AT7,23;R 

65 PRINT AT9,0; “QUANTAS PRESTACOES?” 
70 INPUT No 

75 PRINT AT9,23;N . 

80 IF N*R< = P-ETHEN GOTO 130 

















85 LET 
90 LET 
95 LET 
100 LET 
105 IF 

110 GOTO 
115 PRINT 
120 PRINT 
125 GOTO 
130 PRINT 
145 PRINT 
150 INPUT 
155 IF 

160 STOP 
165 SAVE 
170 RUN 


= Do EE NAIZEUT + 12) FENDER 
É = < (P- E) THEN GOTO 115 
99 
AT 11,0; “TAXA DE JUROS EH”; | 
“/. AO MES” 
145 
AT 41,0; “NÃO EH CALCULAVEL* 
AT 14,0; “CONTINUA? (S/N) 
Za 
Z5 = “S” THEN GOTO 12 


“TENTATIVAS” 
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Poupança 
na 


Este programa permite o cálculo do montante conseguido através 
da capitalização de depósitos efetuados mensalmente em uma 
caderneta de poupança. É permitido tanto depósitos quanto 
retiradas durante o mês, sendo juros e correção monetária 
calculados sobre o menor saldo. 



















Os juros são calculados automaticamente. 


Na tela a seguir podem ser observados maiores detalhes a respeito 
deste cálculo, incluindo as informações que são solicitadas pelo 
programa. 


Para copiar o programa, utilize as duas últimas linhas do mesmo 
que foram escritas para tal finalidade. 


POUPANCA 
SALDO INICIAL? BODOGODO 
CORRECAO MONETARIA MODODDAR 
RETIRADA NO MES? PHDPOADA 


DEPOSITO NO MES? ponapaDO 
RENDIMENTOS DODONDOO 


APOS 0000 MESES, SALDO DONDONDO 
CONTINUA? (S/N) 
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q 











5 REM 
10 REM 
12 LET 
15 PRINT 
20 PRINT 
25 INPUT 
30 PRINT 
35 PRINT 
40 INPUT 
45 PRINT 
50 PRINT 
55 INPUT 
60 PRINT 
65 PRINT 
70 INPUT 
75 PRINT 
80 LET 
85 LET 
90 LET 
95 LET 

100 LET 

105 PRINT 

NO PRINT 


15 PRINT 
120 INPUT 
125 IF 

127 CLS 
130 PRINT 


135 GOTO 35 


140 STOP. 
145 SAVE 
150 RUN 





CALCULO DE POUPANCA 
AUTOR: LOURIVAL KARSTEN 

Z=0 
“bbbbbBbDBPBOBUBPBABNHCLABBbBb'' 
AT 3,0; “SALDO INICIAL?” 

C 

AT 3,23; € 

AT 5,0; “CORRECAO MONETARIA? ./! 

M 

AT5,23;M;" 

AT 7,0; “RETIRADA NO MES?” 

R 

AT 7,23; R;” x 

AT 9,0; “DEPOSITO NO MES?” 

D 


Fr +r 


“517100 


om 
OAB 
[O 
Ego 
AS+O 


0 o 
* a 


AT 11,0; “RENDIMENTOS”; AT 11,23; L; ” 

AT 13,0; “APOS ";Z: “MESES, SALDO”; AT 13,23; 
C: s" ZA 

AT 15,0; “CONTINUA? (S/N) 

zo 

Z% < > “"S” THEN GOTO 149 


AT 3,0; “SALDO INICIAL: “;AT 3,23; C” E 


“POUPANÇA” 





Montante Acumulado : 


na 


Um capital empregado em algumas formas de aplicação pode 
render juros sobre juros, capitalização diariamente (OVER), 
semanalmente (OPEN), mensalmente, trimestralmente etc. 


Esta capitalização aumenta significativamente a taxa efetiva de 
rendimento. 


O programa que aqui apresentamos calcula esta forma de 
capitalização, calculando juros sobre juros para cada período 
informado. 


A fórmula utilizada é a seguinte: 
S = P+(1+DN 


onde: 

S = Valor acumulado no final da aplicação. 
P = Valor inicial investido. 

| = Taxa de juros ao período. 

N = Número de períodos da aplicação. 


Para-produzir cópia deste programa, que roda em 1 kb, podem 
ser utilizadas as duas últimas linhas do mesmo, 


O CAPITAL EH 

OBODADA 

TAXAS DE JUROS AO PERIODO 
DODADADA 

PERÍODOS 


DABBVODO 


O CAPITAL QUOBADDO 

A 000 0/0 AO PERIODO 
DURANTE 0000 PERIODOS 
RESULTA EM CR$ BOBA 
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5 REM 
10 REM 
12 CLS 
15 PRINT 
20 INPUT 
25 PRINT 
30 PRINT 
35 INPUT 
40 PRINT 
45 PRINT 
50 INPUT 
55 PRINT 
60 LET 
65 LET 
85 PRINT 
90 PRINT 
92 PRINT 
94 PRINT 
96 PRINT 
97 PRINT 
98 PRINT 

100 INPUT 
102 IF 

104 GOTO 
106 STOP 
108 SAVE 
110 RUN 





MONTANTE ACUMULADO 
AUTOR: LOURIVAL KARSTEN 


“O CAPITAL EH” 
Cc 

c 

“TAXA DE JUROS AO PERIODO” 
J 

J 

“"PERIODOS" 

Pp 

P 

J = J/100 

T=((1+J)*P)*C 


“O CAPITAL”; € 

“A J+100;” ./. AO PERIODO” 
“DURANTE “;P; ” PERIODOS” 
“RESULTA EM CR$“; T 


AT 15,0; “CONTINUA? (S/N)” 
Z3 
Z8 < > “8” THEN GOTO 106 
12 


“MONTANTE”. 
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Atraso Composto 


Alguns títulos não são pagos no vencimento e estão sujeitos a juros. 


Caso se queira cobrar uma taxa nominal de juros, por exemplo 

8% a.m., basta calcular os juros ao mês, dividir por 30 e 

multiplicar pelo número de dias de atraso. Mas neste programa 
pode-se calcular estes juros capitalizados dia-a-dia, da mesma 

forma que renderiam caso se tivesse conseguido cobrá-los no dia 
aprazado e aplicado no mercado financeiro (por exemplo no OVER). 




















A fórmula utilizada é: 
j=P*a + DN 


onde: 

| = Valor dos juros 

P = Principal (Valor da dívida) 
| = Taxa de juros ao mês. 

N = Número de dias de atraso. 


Este raciocínio também funciona de forma inversa, OU seja, 
supondo-se a condição de devedor e tentando descobrir quanto 
se pode ganhar com o dinheiro dos seus credores. Será a - 
diferença entre os juros resultantes da aplicação e o valor dos 
juros a serem, pagos ao credor. | 


Para produzir cópia do programa, utilizam-se as duas últimas linhas. 


CALCULO DE JUROS COMPOSTOS 
PARA GRDBGADA DIAS ? 


TAXA DE JUROS AO MES? 
CAPITAL? 
VALOR DOS JUROS EH 
CONTINUA? (S/N) 
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E 





5 REM 
10 REM 
20 CLS 
22 PRINT 
23 PRINT 
25 INPUT 
30 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
68 LET 
70 LET 
75 PRINT 
80 PRINT 
85 INPUT 
90 IF 
95 STOP 

100 SAVE 
105 RUN 


JUROS DE ATRASO COMPOSTO 
AUTOR: LOURIVAL KARSTEN 


“CALCULO DE JUROS COMPOSTOS” 
“PARA DIAS?” 

N 

AT 1,8;N 

AT 5,0; “TAXA DE JUROS AO MES?” 
| 


AT 5,23; | 

AT 7,0; “CAPITAL?” 

P 

AT 7,23; P 

| = 1/100 

N = N/30 

J=PHU(I + DN-1) 

AT 9,0; “VALOR DOS JUROS EH”: AT 9,23; J 
AT 11,8; “CONTINUA? (S/N) 
Z8 

2% = “S"” THEN GOTO 26 


“ATRASO” 
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"Opção entre Pagamentos 


na 


Muitas vezes ocorrem algumas incógnitas do tipo: “O que é mais 
racional, pagar à vista Cr$ X ou pagar daqui a N meses Cr$ Ye” 


Esta pergunta pode ser facilmente respondida pelo programa aqui 
apresentado. 


A fórmula utilizada para calcular os valores é: 
S = P*(1+ DN 


onde: 

S = Valor futuro do pagamento à vista. 

P = Valor a pagar hoje. 

| = Taxa de atratividade 

N = Número de meses para o pagamento futuro. 


Para produzir cópia do programa em fita, poderão ser utilizadas as 
duas últimas linhas do mesmo. 


GANHAREI PAGANDO HOJE OU DAQUI A MESES? 
DEBITO HOJE = 
DEBITO FUTURO = 


DAQUI A ??? MESES = 


JUROS DE ? 0/0 AO MES = 0 


VOCÊ ESTARAHX .  X 
VALOR HOJE = CR$ 0000B0GA 
DAQUI A 0090 MESES 





128 






— ssem 


5 REM — OPCAO ENTRE PAGAMENTOS 
10 REM — AUTOR: LOURIVAL KARSTEN 
15 PRINT  “GANHAREI PAGANDO HOJE OU DAQUI A MESES?” 
20 PRINT AT2,0; “DEBITO HOJE = 
25 INPUT A 
30 PRINT AT223:A 
35 PRINT AT4,0:“DEBITO FUTURO = 
40 INPUT C 
45 PRINT AT4,23:€ 
50 PRINT AT6,0; “DAQUI A 7?? MESES” 
55 INPUT B 
60 PRINT AT6,23:B 
65 PRINT AT8,0; JUROS DE? 0/0 AO MES” 
70 INPUT D 
75 PRINT AT8,23;D 
80 LET D = D/100 
85 LET T=((1+ D'**BJ*A 
90 PRINT AT 10,0; “VOCE ESTARA”: 






























95 IF T > CTHEN PRINT “PERDENDO” 

100 IF TF = CTHEN PRINT “EMPATANDO” 

105 IF — T< CTHEN PRINT “GANHANDO” 

HO PRINT “VALOR HOJE = CR$ “TT,” DAQUI A ";B;” MESES” 
15 STOP 





120 SAVE “OPCAO” 
125 RUN 
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Este programa permite a conversão de diversas medidas de 


corrente elétrica entre sl. 






Na tela 1 pode-se ver um menu que permite a escolha de diversas 
opções. 







Cada uma destas opções pode ser acessada, digitando-se O 
número que precede a mesma nã tela. 


Logo após a tela 1, pode-se observar a mensagem gerada por cada 
uma destas opções que pede informações e fornece o resu Itado. 








Após ter sido acessada qualquer das rotinas oferecidas pelo 
programa e O resultado calculado, o mesmo permanecerá na tela 
por alguns segundos, retornando logo após à tela 1 para uma 
nova escolha. 






Para produzir uma cópia do programa em fita poderão ser 
utilizadas as duas últimas linhas de instruções do programa, 
escritas para tal finalidade. 













TRANSFORMAR: 
(DHP EM KW 
(D)KW EM HP 
(3)KW EM WATTS 

(4)WATTS SABENDO VOLT E AMP 
(D)VOLT SABENDO WATTS E AMP 
(6) AMP SABENDO WATTS E VOLT 
(D)FIM 





Rotina 1: 
Rotina 2 : 
Rotina 3: 


Rotina 4: 
Rotina 5: 


Rotina 6: 


q 


5 REM 
10 REM 
11 GOTO 
12 PAUSE 
13 CLS 
15 PRINT 
20 PRINT 
25 PRINT 
30 PRINT 
40 PRINT 
45 PRINT 
50 PRINT 
55 PRINT 
60 INPUT 
65 IF 

70 IF 

















ENERGIA 

AUTOR: LOURIVAL KARSTEN 
13 

430 


“TRANSFORMAR: 
“(DHP EM KW” 
“(2)KW EM HP” 
“(3)KW EM WATTS" 
“A4)WATTS SABENDO VOLT E AMP” 
“(BIVOLT SABENDO WATTS E AMP” 
“(6)AMP SABENDO WATTS E VOLT” 
“O FIM" 

A 

A > 6O0RA < O THEN GOTO 69 

A = O THEN GOTO 205 
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75 CLS 
80 GOTO 

90 PRINT 
95 INPUT 
96 PRINT 
100 PRINT 
105 GOTO 

nO PRINT 
115 INPUT 
116 PRINT 
120 PRINT 
125 GOTO 

130 PRINT 
135 INPUT 
136 PRINT 
140 PRINT 
145 GOTO 

150 PRINT 
152 INPUT 
153 PRINT 
154 PRINT 


- 156 INPUT 


157 PRINT 
158 PRINT 
160 GOTO 

170 PRINT 
172 INPUT 
173 PRINT 
174 PRINT 
176 INPUT 
177 PRINT 
178 PRINT 
180 GOTO 

190 PRINT 
192 INPUT 
193 PRINT 
194 PRINT 
196 INPUT 
197 PRINT 









(A * 20) + 70 
“HPb”; 

B 

B 

“KwW="; B*.7457 
12 

“KW”; 

B 

B 

“HP= "; B* 1.342 
12 

“RW”: 

B 

B 

“WATTS = ; B* 1000 
12 

“VOLT”; 

B 

B 

“AMP "; 

E 

C 

"NATTS "; B*C 
12 

'ANATTS "; 

B 

B 

“AMP "; 

C 

C 

"vOLT"”; B/C 

12 

'NVATTS”; 

B 

B 

“VOLT”; 

E 

C 


198 PRINT “AMP”; B/C 
200 GOTO. 12 

205 STOP 

210 SAVE “ENERGIA” 
215 RUN 











Medidas de Potência 





Este programa calcula a potência necessária para executar uma 
tarefa dada, expressando-a em KGM/S, WATTS e HP. 


Fórmulas utilizadas: 





F*D 
KOM/S = Tr60 
WATTS = SENT *9.81 
HP = 5 




















onde: 
F = Força em KG 

D = Distância em metros 
T = Tempo em minutos. 


Para maiores detalhes, vide tela anexa. 
Para cópia do programa em fita, utilizam-se as duas últimas linhas 
do mesmo. 





FORÇA? (KG) 
copagoDa 
DISTANCIA? (METROS) 
AOOODODO 

TEMPO? (MINUTOS) 
poNNDODO 


DOPODADO KGM/S 
AOADOGOO WATTS 


DPPODADO HP 
QUTRO CALCULO? (S/N) 
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Dad 


5 REM MEDIDAS DE POTENCIA 
10 REM AUTOR: LOURIVAL KARSTEN 
12 CLS 

15 PRINT “FORÇA? (KG)” 

20 INPUT FE 

25 PRINT F 

30 PRINT “DISTANCIA? (METROS) 
35INPUT D 

40 PRINT D 

45 PRINT “TEMPO? (MINUTOS) 

SO INPUT T 

55 PRINT T 

57 PRINT 

60 LET C = (F*D)/(T*60) 

65 PRINT C;“kGM/S” 

70 PRINT 

72 LET E=C*9.81 

75 PRINT E “WATTS” 

17 PRINT 

80 LET E = C/75 

85 PRINT E; = “HP” 


























87 PRINT 

90 PRINT “OUTRO CALCULO? (S/N) 
95 INPUT Zg 

100 IF 2% = “S” THEN GOTO 12 
102 CLS 

105 STOP 





NO SAVE | “POTENCIA” 
15 RUN 
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Para se conseguir calcular o logaritmo de qualquer número, em 
qualquer base, deve-se recorrer à uma das propriedades dos 
logaritmos: 

TEOREMA: “A razão entre os logaritmos de um número, 
considerados em dois sistemas diferentes, é uma constante 
denominada módulo de um dos sistemas em relação ao outro.” 


Daí chega-se à fórmula: 


logbh N = 


Para simplificar o seu uso, quando se precisar de logaritmos em 
qualquer base, utiliza-se o programa anexo que pode ser usado 
como sub-rotina. 


10 REM 


12 REM 
15 PRINT 
20 INPUT 
25 PRINT 
30 PRINT 
35 INPUT 
40 PRIN 
45 LET 
50 PRINT 
bb PAUSE 
60 CLS 
65 GOTO 
70 SAVE 
75 RUN 


O nosso micro não calcula diretamente nenhum logaritmo, a não 
ser o logaritmo natural ou neperiano. | 





loga D 




































Re loga N 











CALCULO DE LOGARITMO DE QUALQUER NUMERO 
EM QUALQUER BASE 

AUTOR: LOURIVAL KARSTEN 

“QUAL EH A BASE?” 

A 

“BASE = A”, À 

“QUAL EH O NÚMERO?” 

B 

“NUMERO = “; B 

S = (1/LNA)J*LNB 

“O LOGARITMO DE";B, “NA BASE";A,'EH”; S 
200 























15 
“LOGARITMO” 











Embora a sua aplicação não seja muito grande, os arranjos têm 
uma função importante nos cálculos de eventos estatísticos. 


Este programa permite o cálculo dos arranjos possíveis a partir de 

quantidades informadas. 

A fórmula utilizada é a clássica: 

An,p = ——— 
PQ-p1 

onde: 

n = número de elementos 

p Eta! t dt! t 


tomados “p” a “p 


O programa exibe uma tela (vide anexo), onde aparece uma 
pergunta que deve ser respondida digitando-se o número de 
elementos e logo após pede o número de elementos de cada 
arranjo. 


Para copiar o programa eim fita podem ser utilizadas as duas 
últimas linhas do mesmo, 


ARRANJOS COM ??? ELEMENTOS 
DOBOBADO 


TOMADOS pre Ã per 
CHAGODDO 


COM 00000000 ELEMENTOS 
TOMADOS 000 A G90 
FORMAMOS GO0MBMHO ARRANJOS 


CONTINUA (S/N)? 





137 


138 


5 REM 
10 REM 
15 CLS 
20 PRINT 
25 INPUT 
30 PRINT 
32 PRINT 
35 PRINT 
40 INPUT 
45 PRINT 
50 LET 
55 FOR 


“GOLET 


65 NEXT 
70 PRINT 
75 PRINT 
80 PRINT 
85 PRINT 
90 PRINT 
95 PRINT 
100 INPUT 
105 IF 

110 STOP 

115 SAVE 

120 RUN 






ARRANJOS 
AUTOR: LOURIVAL KARSTEN 


"ARRANJOS COM ??? ELEMENTOS?” 


N 
N 


“TOMADOS nda = Lad À dida 2 Ai +" 


B 


O 2 STEP 
(X-1) 


N 
Z 


x | 1 


=Z 


XxX NX NO 


"COM "; N; " ELEMENTOS” 
“TOMADOS ";B;“ A";B 
"FORMAMOS "; Z; ” ARRANJOS” 
“CONTINUA (S/N)?” 

Z5 

Z5 = "S” THEN GOTO 15 


“ARRANJOS” 












Experiências 


Uma das maiores vantagens de se ter um micro é poder dar asas à 
imaginação. 

Um pequeno programa como o que vem a seguir pode ser usado 
com inúmeras variações, sempre produzindo padrões gráficos na 
tela. 


Este exercício de criatividade pode ser particularmente 
estimulante para “designers”, modistas etc., notadamente para 
projetar padrões de tecidos. 


Vamos ao programa: 


SINPUT N 
6 LET N = N/100 
10 FOR |= 0 TO 63 


20 FOR R = NTO1STEPN/2 

30 LET X = (1/63 + 6.28) 

40 LET Y=83-42*SIN(X) 

50 PLOT ,Y*R 

60 NEXT R 

70 NEXT | 
Começam-se as experiências introduzindo o número 7Qá 
Aparecerá apenas uma linha na tela. 


Agora, digita-se um número menor. Aparecerão cada vez mais 

retas na tela com números cada vez menores. Em números bem 

pequenos podem-se produzir belos padrões de listado. Mas como 

o objetivo é fazer experiências então modifica-se à linha 36 para: 
30 LET X = (1/63 + 6.28) 

O desenho mudará radicalmente. 


Neste programa, poderá ser modificada a linha 20 mudando o 
«+» STEP N/3 para ... STEP N, ... STEP N/3 e assim por diante. 


Esta modificação provocará o aumento ou diminuição do número 
de listas para cada constante. 
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A linha 46 poderá ser modificada, alterando-se para: 
40 LET Y = 43-40 * SIN (X) ou 

40 LET Y = 43-15 * SIN (X), etc... 

assim como: 


AQLET Y = 43 - 20* COS(X), ou qualquer outro valor para a 
subtração. 


Na linha 30 pode-se modificar o valor a ser somado ao valor de 
1/63, como também ainda utilizar uma subtração no lugar de 
soma. 


Como se pode observar, são possíveis inúmeras combinações e se 
poderá exercitar a criatividade à vontade. 


Boas experiências ! 





Loto 


Nem só de seriedade vive o homem, portanto vamos aproveitar O 
micro e brincar com a sorte! (Você acredita nela?) 


Se não acredita muito, vamos ao programa a seguir que produz 
um cartão com cinco prognósticos para a loto, portanto bem 
baratinho. 


5 REM LOTO 
HO REM AUTOR: LOURIVAL KARSTEN 
40 FOR X=1T05 
50 LET R = INT (RND * 100) 
60 PRINT AT INT(R/10),2 *(R-(INT(R/10) *10)); R 


70 NEXT X 

80 PRINT AT 15,0; “OUTRO CARTAO? (S/N) 
SO INPUT 25 

95 CLS 

100 IF 29 = “S” THEN GOTO 40 

HO STOP 


“Agora, se leva bastante fé na sorte e acha que hoje é o seu dia, 
altere o programa introduzindo estas linhas: 


15 PRINT “QUANTAS DEZENAS?” 
20 INPUT A 
40 FOR X=1TO A 


Espero que tenha muito êxito mas, se não for feliz, não me culpe 
muito, por favor. 


Pode culpar o micro, o azar, a chuva, o sol etc.... 
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